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éveloppement d'applications 
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Ce manuel d'autoformation est destiné aux utilisateurs avancés 
d'Excel souhaitant recourir au langage de programmation VBA pour 
développer des applications d'entreprise sous Excel version 2019 ou 
Office 365. 


> La première partie présente sous forme de fiches pratiques le 
langage VBA et le modèle objet d'Excel. 


> La deuxième partie fournit des conseils méthodologiques 
illustrés d'exemples réutilisables qui aideront le lecteur à 
améliorer sa productivité ot la qualité de ses applications. 


> La demière partie propose sept cas pratiques de complexité 
croissante pour mettre en œuvre ses connaissances et s'exer- 
cer au développement de véritables applications profession- 
nelles. 


Les fichiers nécessaires à la réalisation des cas pratiques sont 
disponibles en téléchargement sur le site web 
www.editions-eyrolles.com. 


Au sommaire 


Fiches d'autoformation. Création d'un programme (macro, Editeur VBA) + Vie 
d'un programme + Manipulation des données (variables, types, tableaux, expres- 
sions et opérateurs, chaînes de caractères...) e Structure des programmes (If..Else, 
While. .., procédures, fonctions, sous-programmes. ..) e Objets données d'Excel e 
Boîtes de dialogue + Manipulation fine des données + Événements et objets spé- 
ciaux. Méthodologie de développement. Techniques utiles et exemples à réu- 
tiliser e Méthodologie (feuille Menu, développement progressif d'une application, 
démarrage automatique, système d'aide, dictionnaire de données, gestion des 
versions). Cas pratiques. Gestion d'un tournoi de football e Système de QCM e 
Gestion d'une association + Facturation (bases clients/produits) e Récursivité et 
graphiques animés à travers l'exemple des Tours de Hanoï © Gestion de stocks e 
Sudoku. Aide-mémoire. Raccourcis clavier, opérateurs, objets... 
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Avant-propos 


Conçu par des formateurs expérimentés, cet ouvrage vous permettra d'acquérir de bonnes bases 
pour développer avec Microsoft VBA pour Excel. Il s'adresse à des utilisateurs avancés de Microsoft 
Excel qui veulent créer des applications utilisant les outils et les objets Excel. 

Les versions successives de Microsoft Excel de 2000 à aujourd'hui ont surtout apporté des 
changements aux commandes de feuilles de calcul d'Excel, notamment dans le domaine de la 
conversion en pages Web. Le langage VBA n'a pas connu d'évolution au niveau de sa syntaxe 
depuis Excel 2000, et les rares changements apportés au modèle d'objet Excel ne concernent que 
des éléments très marginaux que nous n'abordons pas dans ce livre. 


Fiches pratiques : ce manuel commence par présenter sous forme de fiches pratiques les 

« briques de base » de la programmation avec Microsoft VBA pour Excel. Ces fiches pratiques 
peuvent être utilisées soit dans une démarche d'apprentissage pas à pas, soit au fur et à mesure 
de vos besoins, lors de la réalisation de vos applications avec Excel VBA. 


Méthodologie : une deuxième partie fournit des bases méthodologiques et des exemples 
réutilisables dans vos programmes. Tous les exemples donnés sont « passe-partout », 
indépendants de toute version. Nous insistons plutôt sur les aspects « stratégie de la 
programmation » qui ne doivent pas reposer sur des détails de langage. 


Cas pratiques : la troisième partie propose des cas pratiques à réaliser pour acquérir un savoir- 

faire en programmation VBA pour Excel. Cette partie vous aidera à développer des applications en 

mettant en œuvre les techniques et méthodes étudiées dans les parties précédentes. 

wm Ces cas pratiques constituent autant d'étapes d'un parcours de formation ; la réalisation de ce 
parcours permet de s'initier seul en autoformation. 

m Un formateur pourra aussi utiliser ces cas pratiques pour animer une formation à la 
programmation VBA pour Excel. Mis à la disposition des apprenants, ce parcours permet à 


chaque élève de progresser à sa vitesse et de poser ses questions au formateur sans ralentir 
la cadence des autres élèves. 


Les fichiers nécessaires et les exemples de code utiles à la réalisation de ces exercices pratiques 
peuvent être téléchargés depuis le site Web www.editions-eyrolles.com. Tl vous suffit pour cela 
de taper le code G67825 dans le champ RECHERCHE de la page d'accueil du site. Vous 
accéderez ainsi à la fiche de l'ouvrage sur laquelle se trouve un lien vers le fichier à télécharger, 
InstallExosVBAExcel.exe. Une fois ce fichier téléchargé sur votre poste de travail, il vous 
suffit de l'exécuter pour installer automatiquement les fichiers des cas pratiques dans le dossier 
nommé Exercices Excel VBA, créé à la racine du disque C sur votre ordinateur. 


Les cas pratiques sont particulièrement adaptés en fin de 
parcours de formation ou d'un cours de formation en 
ligne (e-learning) sur Internet, par exemple. 
Tous les exemples ont été testés sur PC, mais ils 
devraient fonctionner sans probléme sur Mac. 
Des différences se rencontrent dans les 
manipulations de fichiers, mais sur des éléments 
non abordés ici ou évités gráce à l'emploi de la 
propriété PathSeparator. 


Téléchargez les fichiers 
des cas pratiques depuis 
www.editions-eyrolles.com 


Conventions typographiques 


Actions à effectuer 
Les commandes de menus sont en italiques, séparées par des tirets : Fichier — Ouvrir. 


Les commandes du ruban sont sous la forme ©: OWGLET — [Groupe] — Commande. Il est possible 
d'ouvrir la boîte de dialogue du groupe en cliquant sur le déclencheur de dialogue [N|, s'il existe. 


Une suite d'actions à effectuer est présentée avec des puces, par exemple : 
m Affichage (signifie cliquez sur le menu Affichage) 
m Cliquez sur la fenêtre à afficher 


Partout où nous disons « cliquer » ou « actionner », vous pouvez agir par « appuyer sur » si vous 
disposez d'un écran tactile. 


Une énumération ou une alternative est présentée avec des tirets, par exemple : 
— soit par un nombre 

— soit par «nombrel» To «nombre 2» 

L'action de frappe de touche est représentée par la touche ainsi : F11. 


L'action de frappe d'une combinaison de touches est représentée ainsi : Alt+F 11]. 


L'action de cliquer sur un bouton est représentée ainsi : pk Fichier représente le bouton (à 
gauche de l'onglet Accueil) qui appelle le mode Backstage d'actions sur les fichiers. 


Les onglets sont entre guillemets : « Général » ou on précise : Onglet Général. 

Les cases à cocher sont marquées ainsi : 4 (il faut la cocher), O (il faut la décocher). 

Les boutons radio sont marqués ainsi : © (choisi), O (non choisi). 
Extraits de programme 


Les extraits de programmes sont représentés comme suit : 


Sub exemple () 

Dim x As Integer 
x=3 

End Sub 


Le trait figure la marge. Les indentations (décalages comme pour x=3) doivent être respectées. 


Dans les descriptions de syntaxe 
Une désignation générique d'un élément est présentée entre <> ; dans une instruction véritable, 
elle doit être remplacée par un élément de syntaxe correcte jouant ce rôle ; une définition 
générique sera le plus souvent suivie d'un exemple réel en caractères courier. 


Par exemple, la déclaration d'une variable est de la forme : 
Dim «variable» As «type» EX : Dim x as Integer 


Dans une description, un élément facultatif est présenté entre [ ] (qui ne doivent pas être tapés) : 
For <variable>=<début> To «fin» [Step <pas>] 


Une répétition facultative est présentée comme suit : 

Dim «variable» As <type>[,<variable> As «type» [,..]] 

La place des virgules et des crochets montre que chaque élément facultatif, en plus du premier, 
doit être précédé de la virgule qui le sépare du précédent. Les [ ] les plus internes peuvent être 
absents. 


Abréviations 
BD: Base de données désign. : désignation 


BDi : Boite de dialogue/Formulaire VBA: Visual Basic Applications 
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ENREGISTREMENT D'UNE MACRO 


ENREGISTRER UNE SUITE D'OPÉRATIONS EXCEL 
Nous allons voir qu'on peut mémoriser une suite d'opérations Excel pour pouvoir répéter cette 
suite ultérieurement sans avoir à refaire les commandes. 
m Dans feuille de classeur Excel, faites ^: Affichage — [Macros] — Macros — Enregistrer une 
macro : 


Enregistrer une macro ? 


Nom de la macro 
Macro 


Touche de raccourci 
Quis 


| Enregistrer la macro dans 


Ce classeur x] 


Description 


= Vous avez la possibilité de changer le nom de la macro, de la sauvegarder dans d'autres 
classeurs (le plus souvent, on la sauvegarde dans le classeur en cours) ou de donner une 
description plus compléte de la macro en cours de définition. L'option probablement la plus 
utile est d'associer une touche de raccourci. Cliquez sur [ed pour valider. 

m Faites les opérations Excel que vous souhaitez enregistrer... 

m Faites ^ Affichage — [Macros] - Macros — Arrêter l'enregistrement. 


Avant l'enregistrement, vous avez la possibilité de demander ^:Affichage — [Macros] — Macros — 
Utiliser les références relatives, ce qui permet de décider que la rédaction de la macro traitera les 
coordonnées de cellules en relatif (c'est en absolu en l'absence de cette commande). 


DÉCLENCHER UNE NOUVELLE EXÉCUTION 
m Revenu sur la feuille Excel, modifiez éventuellement certaines données. 
m Faites C Affichage — [Macros] - Macros — Afficher les macros, le dialogue suivant s'affiche : 


Macro 


Nom Ge la macro 


Macro = p 
iii 
Pas à pas détail 
Moat 
papprenes 
Opt 
Deicrehen 
endet 
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ENREGISTREMENT D'UNE MACRO 


Ce dialogue permet de choisir une macro dans la liste. Cette liste est formée de toutes les 

procédures connues de Visual Basic soit dans tous les classeurs ouverts, soit dans le classeur 

spécifié gráce à la liste déroulante «Macros dans» en bas de la BDi. 

m Après avoir sélectionné la macro, diquez sur le bouton Exécuter, vous pouvez constater que 
vos opérations sont répétées 


EXAMINER LA MACRO PRODUITE 


Il faut pouvoir examiner ce qu'Excel a mémorisé en fonction des actions enregistrées. Cet examen 
est en particulier nécessaire si l'exécution de la macro ne produit pas les résultats voulus : c'est 
probablement qu'une action parasite a été enregistrée et il faudra enlever ce qui la représente 
dans l'enregistrement 

Une autre raison d'examiner la macro telle qu'elle est enregistrée est de pouvoir la modifier. Des 
modifications mineures qu'on peut vouloir faire viennent du processus méme de l'enregistrement : 
supposons que, voulant sélectionner la cellule A3, vous sélectionniez d'abord, suite à une 
hésitation, la cellule A4 ; bien entendu, vous allez rectifier et cliquer sur A3. Mais Excel aura 
enregistré deux opérations de sélection et il sera conseillé de supprimer la sélection de A4. Donc 
une premiére raison de modification est d'élaguer la macro des opérations inutiles. 

Un autre motif de modification, beaucoup plus important, est de changer le comportement de la 
macro pour le rendre plus ergonomique, ou pour traiter d'autres aspects de l'application. 

= Dans la boite de dialogue © Affichage - [Macros] — Macros — Afficher les macros, cliquez sur 

Modifier : la fenétre de l'Éditeur VBA apparait. 
B Mecrosof Veal Baux pour Apphcatient - Classeur! - n x ] 


fichier Edition Affichege Insertion Feemst Débogege Eyécution Quils Compléments Fepête | 
& a - 4 n^ n ak See © Q uns 


Sub Macroi |) 


* Macroi Macro 


Range("B4;B4*) . Select 

Selection. Copy 

Range ("D4") Select 

ActiveSheet . Paste 

Range (*D10*) .Select 
End Sub 


T | 


L'ONGLET DÉVELOPPEUR 


Nous voyons maintenant une autre manière d'appeler l'éditeur VBA. Une option permet d'ajouter 
un onglet appelé Développeur. Il est, de toutes façons, indispensable pour toute utilisation 
réguliére de VBA. 


Afficher l'onglet développeur 


m Cliquez sur Fichier. 


© Eyrolles/Tsoft — VBA pour Excel versions 2019 et Offic 


ENREGISTREMENT D'UNE MACRO 


m Cliquez sur Options puis Personnaliser le ruban. 
wm Cochez M Développeur dans la liste Onglets principaux et OK fs 
L'onglet Développeur se rajoute au ruban. Voici son contenu : 


em E s d = bf [E Propriétés 


& Visualiser le code 


Visuel Macros Compléments Compléments Compléments | Insérer Mode 
Basic L Excel COM ~ Création LA] Exécuter la boite de dialogue 
Code Compléments Contréles 
f FE Propriétés du mappage [Sg Importer 


= 
F Kits d'extension 

Source 

I] 


XML 


La commande C Développeur - [Code] — Macros fait apparaître la boîte de dialogue liste des 
macros. La commande © Développeur — [Code] — Visual Basic appelle l'éditeur VBA. Vous 
retiendrez rapidement son raccourci [Al-[F11|, best-seller auprès des programmeurs VBA. 

On passe de la fenétre de l'éditeur VBA à la fenétre classeur et inversement par clics sur leurs 
boutons dans la barre en bas de l'écran ou à coups de Alt-F1 1|. 

À part ses barres de menus et d'outils, la fenêtre de l'éditeur VBA comprend deux volets. Celui de 
gauche se partage de haut en bas en Fxplorateur de projets et Fenétre de propriétés ; le volet de 
droite est occupé par une ou plusieurs fenétres de code. 

m Si vous n'avez pas l'affichage correspondant à la figure, le plus probable est que vous n'ayez 
pas la fenétre de code, mais que vous ayez le volet de gauche. Dans l'Explorateur de projets, 
vous devez avoir au moins une tête d'arborescence VBAProject(nom de votre classeur). Pour 
VBA, un classeur et l'ensemble de ses macros forme un « projet ». L'arborescence de votre 
projet doit se terminer par une rubrique Modules. 


m Sicelle-ci n'est pas développée, cliquez sur son signe H : Module1 doit apparaître 


Double-cliquez sur le mot Module! : la fenêtre de code doit apparaître. 


Si vous n'avez pas le volet de gauche, appelez le menu Affichage et cliquez les rubriques 
£xplorateur de projets et Fenétre Propriétés, puis éventuellement arrangez leurs tailles et 
positions. 


Avantages et inconvénients de la construction de macros par enregistrement 
On peut créer une macro sans enregistrer des actions Excel, en écrivant le texte du programme 
souhaité directement dans une fenêtre module sous l'Éditeur VBA. 
Un avantage de l'enregistrement d'une séquence de commandes est que, la macro étant générée 
par Excel, elle ne peut contenir aucune faute de frappe. Du cóté des inconvénients, nous noterons 
un certain manque de souplesse : la macro ne peut que faire exactement ce qu'on a enregistré, 
sans paramétrage possible. 
Autre inconvénient, plus grave et qui justifie que l'on puisse saisir des programmes directement au 
Clavier : par enregistrement, on ne peut que générer un programme à logique linéaire où toutes 
les actions se suivent en séquence ; on ne peut pas créer un programme où, en fonction de 
premiers résultats, on effectue telle action ou bien telle autre : lors de l'enregistrement, on suivra 
une seule des voies possibles et elle seule sera enregistrée. 
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A fortiori, lorsqu'une sous-étape du traitement doit être répétée plusieurs fois, l'enregistrement ne 
mémorise qu'un passage. Ces possibilités appelées « alternatives » et « boucles » sont offertes par 
des instructions de VBA mais qui doivent étre fournies directement. Elles s'appellent instructions de 
structuration. 

Mais un grand avantage de l'enregistrement, qui est à nos yeux le plus important, est que cette 
méthode est une extraordinaire machine à apprendre VBA, ou plutót les objets Excel et leur 
manipulation : dés qu'on sait accomplir une action par les commandes Excel, on saura comment 
cela s'écrit en VBA, ou plutôt quels objets manipuler et comment. Il suffit de se mettre en mode 
enregistrement, effectuer les commandes Excel voulues, arréter l'enregistrement puis examiner ce 
que le systéme a généré. Par exemple, pour voir comment on imprime, il suffit de commander une 
impression en mode enregistrement. Bien sür, on pourrait trouver la réponse dans l'aide en ligne, 
mais la méthode de l'enregistrement épargne une longue recherche. 


Sauvegarde d'un classeur contenant des macros 


Bien entendu, votre classeur devra être sauvegardé. Dans la version Office 2013, les classeurs qui 


ne contiennent pas de macros ont l'extension .xlsx, tandis que ceux qui contiennent des macros 
ont l'extension .xlsm. 


Pour la première sauvegarde du classeur, il faut revenir à la fenêtre Excel et : 
m Fichier — Enregistrer sous 


m Foumir disque, répertoire et nom du fichier, par exemple après avoir spécifié Ce PCet 
Parcourir. 


= Dans la liste déroulante Type, spécifiez Classeur Excel prenant en charge les macros. 
Pour les sauvegardes suivantes, la commande Aichier — Enregistrer de la fenêtre de l'éditeur VBA 
convient. 
Nouveauté depuis la version 2016 
m Cliquez sur © Dites-nous ce que vous voulez faire. 


m Dans la zone de texte qui apparait, spécifiez créer une macro. II vient une liste déroulante qui 
propose entre autres Enregistrer une macro et Afficher les macros qui font apparaître les 
boites de dialogue vues précédemment. 


= Si vous spécifiez seulement macros, seulement Afficher les macros est proposée. 


ÉCRITURE DES INSTRUCTIONS VBA : L'ÉDITEUR VBA 


CRÉER UN MODULE 


Depuis un classeur Excel, on arrive à l'écran VBA par la commande Développeur — [Code] — 

Visual Basic ou |Al-F11. On a vu dans la section précédente comment assurer que la fenêtre de 

projets soit présente. Elle a au moins une arborescence VBA Project (nom de votre classeur) et 

celle-ci a au moins une rubrique Wicrosoft Excel Objects. 

— Sile programme que vous souhaitez écrire doit gérer la réponse à des événements concemant 
une feuille de classeur ou le classeur, les modules correspondants apparaissent dans 
l'arborescence sous Microsoft Excel Objects Double-cliquez sur la feuille voulue ou le classeur : 
la fenêtre de module apparaît. 

— Dans les autres cas : 

m Sélectionnez le projet (clic sur sa ligne dans la fenêtre Projets), puis 

m Insertion — Module pour un module normal. Les autres choix sont Module de classe et User 
Form (Boîte de dialogue et module gestion des objets contenus). Ces cas sont traités dans 
d'autres chapitres, donc plaçons-nous ici dans le cas du module normal. 

m Une fois le module créé, la rubrique Modules apparait dans l'arborescence. Pour écrire le 
programme, développez la rubrique, puis double-cliquez sur le nom du module voulu. 

m Il faut maintenant créer une procédure. Le menu /nsertion a une rubrique Procédure, mais 
il suffit d'écrire Sub «nom voulu» dans le module. 


SUPPRIMER UN MODULE 


On peut avoir à supprimer un module, notamment parce que, si on enregistre plusieurs macros, 
VBA peut décider de les mettre dans des modules différents (par exemple Module2, etc.) alors qu'il 
est préférable de tout regrouper dans Module 1. 


m Aprés avoir déplacé les procédures des autres modules dans Module 1, sélectionnez chaque 
module à supprimer par clic sur son nom sous la rubrique Modules. 


wm Fichier- Supprimer Module 2 (le nom du module sélectionné apparait dans le menu Fichier). 
m Une BDi apparait, proposant d'exporter le module. Cliquez sur Nonl. 


EXPORTER/IMPORTER UN MODULE 


Exporter : 
Si dans la BDi précédente, vous cliquez sur Dui, vous exportez le module, c'est-à-dire que vous 
créez un fichier d'extension .bas qui contiendra le texte des procédures du module. Un tel fichier 
peut aussi se construire par : 
m Mettez le curseur texte dans la fenêtre du module voulu. 
m Fichier — Exporter un fichier. 
m La BDi qui apparaît vous permet de choisir disque, répertoire et nom de fichier. 


Importer : 
L'opération inverse est l'importation qui permet d'ajouter un fichier à un projet : 
m Sélectionnez le projet concerné (par clic sur sa ligne dans la fenétre de projets), puis faites 
Fichier — Importer un fichier. 
= Dans la BDi, choisissez disque, répertoire et nom de fichier. Les extensions possibles sont .bas 
(module normal), .cls (module de classe) et .frm (BDi construite par l'utilisateur et le module 
de code associé). 
Cette technique permet de développer des éléments, procédures ou BDi servant pour plusieurs 
projets. 
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ÉCRITURE DES INSTRUCTIONS VBA : L'ÉDITEUR VBA 


OPTIONS RÉGLANT LE FONCTIONNEMENT DE L'ÉDITEUR 
Dans l'écran VBA, faites Outils — Options. Le fonctionnement de l'éditeur obéit aux onglets Éditeur 
et Format de l'éditeur. l'onglet Éditeur régle le comportement vis-à-vis du contenu du 
programme notamment les aides à l'écriture procurées par l'éditeur : 


Options x 


Éditeur | Format de l'édteur | Général | Ancrage | 


Paramétres du code 

[v Vérification automatique de la syntaxe |v Retrait automatique 

z LAW. variables obligatoire | Largeur dcin [1— 
Complément automatique des instructions tabulation : 

F Info express automatique 

[V Info-bulles automatiques 


Paramètres de la fenêtre 

IV Edition de texte par ghsser-déplacer 

IV. Affichage du module complet par défaut 
I¥ Séparation des procédures 


[ ok | Annuler Aide | 


Les choix de la figure nous semblent les plus raisonnables. 

- M Vérification automatique de la syntaxe parle d'elle-même 

- O Déclaration de variables obligatoire si la case est cochée installe automatiquement 
Option Explicit en tête de tous les modules. Si la case n'est pas cochée, vous devez taper 
la directive partout où il le faut. 

- M Complément automatique des instructions présente les informations qui sont le 
complément logique de l'instruction au point où on est arrivé. 

- M Info express automatique affiche des informations au sujet des fonctions et de leurs 
paramètres au fur et à mesure de la saisie 
M Info-bulles automatiques : en mode Arrêt, affiche la valeur de la variable sur laquelle le 
curseur est placé. 

- M Retrait automatique : si une ligne de code est mise en retrait, toutes les lignes 
suivantes sont automatiquement alignées par rapport à celle-ci. Pensez en même temps à 
choisir l'amplitude des retraits successifs (ci-dessus 2, au lieu de la valeur par défaut 4). 

Les options Paramètres de la fenêtre sont moins cruciales. 

- M Édition de texte par glisser-déplacer permet de faire glisser des éléments au sein du 
code et de la fenétre Code vers les fenétres Exécution ou Espions. 

- M Affichage du module complet par défaut fait afficher toutes les procédures dans la 

fenêtre Code ; on peut, par moments, décider d'afficher les procédures une par une. 

- M Séparation des procédures permet d'afficher ou de masquer les barres séparatrices 
situées à la fin de chaque procédure dans la fenétre Code. L'intérét de cette option est 
diminué par le fait que ces séparations n'apparaissent pas à l'impression du listing ; une 
solution est d'insérer devant chaque procédure une ligne de commentaire remplie de 
tires s ‘==, 
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ÉCRITURE DES INSTRUCTIONS VBA : L'ÉDITEUR VBA 


L'onglet Format de l'éditeur fixe les couleurs des différents éléments du code. C'est lui qui décide 
par défaut mots-clés en bleu, commentaires en vert, erreurs en rouge. 


Options x 


Édteur Format de l'éditeur | Général | Ancrage | 


Couleurs du code P J 

Texte normal ^ Courier New (Ocadental + 

Texte sélectionné 

Taille : 
| fo > 

Texte du mot dé FF Barre des indicateurs en marge 
| Aperçu 
| Premier plan: Acriére-plan : Indicateur : | ABCXYZabcxyz 


| [m =] [automan] [automan z] 


Cox ] ame | ae | 


- M Barre des indicateurs en marge affiche ou masque la barre des indicateurs en marge, 
indicateurs utiles pour le dépannage. 

— Ayant choisi un des éléments dans la liste, vous déterminez la police, taille et couleur de façon 
classique ; en principe, on utilise une police de type Courrier parce qu'elle donne la même 
largeur à tous les caractères, mais rien ne vous y oblige. 

— Les éléments possibles sont : Texte normal, Texte sélectionné, Texte de l'erreur de syntaxe, 
Texte du point d'exécution, Texte du point d'arrêt, Texte du commentaire, Texte du mot clé, 
Texte de l'identificateur, Texte du signet, Texte de retour de l'appel. 
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RÈGLES FONDAMENTALES DE PRÉSENTATION 


UNE INSTRUCTION PAR LIGNE 


La règle fondamentale est d'écrire une instruction par ligne. Lorsque vous tapez sur la touche C |, 
VBA suppose qu'on passe à la prochaine instruction. Cette règle admet deux exceptions qui 
n'interviennent que trés rarement. 
— On peut mettre plusieurs instructions sur une ligne à condition de les séparer par le 

caractére deux-points ( : ). 


| SSmus 


Cette pratique est tout à fait déconseillée ; elle ne se justifie que pour deux instructions courtes 
formant en quelque sorte un bloc logique dans lequel il n'y aura en principe pas de risque d'avoir à 
insérer d'autres instructions. 
— Une instruction peut déborder sur la (les) ligne(s) suivante(s). La présentation devient : 
XXXXXXXXXXXXXXXXXXX (179 part ie) XXXXXXXXXXXXXXXXXXX 

yyyyyyy (2° partie) yyyyyyyyyyyyyyy 
Les lignes sauf la dernière doivent se terminer par la séquence <espace> <signe souligné>. Bien 
entendu, la coupure doit être placée judicieusement : là où l'instruction aurait naturellement un 
espace. On ne doit pas couper un mot-clé propre au langage, ni un nom de variable. 
Cas particulier : on ne doit pas couper une chaîne de caractères entre guillemets (comme 
"Bonjour"). La solution est la suivante : on remplace la longue chaîne par une concaténation de 
deux parties ("partie 1" + "partie 2") et on coupera comme suit : 


ic Mq ES E 
"partie 2" 


MAJUSCULES ET MINUSCULES 


Sauf à l'intérieur d'une chaine de caractères citée entre ", les majuscules et minuscules ne 
comptent pas en VBA. En fait, les mots-clés et les noms d'objets et de propriétés prédéfinis 
comportent des majuscules et minuscules et vous pouvez définir des noms de variables avec des 
majuscules oü vous le souhaitez. Mais vous pouvez taper ces éléments en ne respectant pas les 
majuscules définies (mais il faut que les lettres soient les mêmes) : l'éditeur VBA rétablira 
automatiquement les majuscules de la définition ; pour les noms de variables, on se basera sur la 
1'* apparition de la variable (en principe sa déclaration). 

Il en résulte un conseil trés important : définissez des noms avec un certain nombre de majuscules 
bien placées et tapez tout en minuscules : si VBA ne rétablit pas de majuscules dans un nom, c'est 
qu'il y a une faute d'orthographe. 

Un autre élément qui peut vous permettre de déceler une faute d'orthographe, mais seulement 
dans un mot-clé, est que si un mot n'est pas reconnu comme mot-clé, VBA ne l'affichera pas en 
bleu. Bien sür, vous devez étre vigilants sur ces points : plus tót une faute est reconnue, moins il y 
a de temps perdu. 

Pour les chaînes de caractères entre ", il s'agit de citations qui apparaîtront telles quelles, par 
exemple un message à afficher, le nom d'un client, etc. Il faut donc taper exactement les 
majuscules voulues. 


COMMENTAIRES, LIGNES VIDES 


Un commentaire est une portion de texte figurant dans le programme et n'ayant aucun effet sur 
celui-ci. La seule chose que VBA fait avec un commentaire, c'est de le mémoriser et de l'afficher 
dans le listing du programme. Les commentaires servent à donner des explications sur le 
programme, les choix de méthodes de traitement, les astuces utilisées, etc. 


© Eyrolles/Tsoft — VBA pour Excel ve 


RÈGLES FONDAMENTALES DE PRÉSENTATION 


Ceci est utile pour modifier le programme, car, pour cela, il faut le comprendre ; c'est utile même 
pour le premier auteur du programme car lorsqu'on reprend un programme plusieurs mois après 
l'avoir écrit, on a oublié beaucoup de choses. Il est donc conseillé d'incorporer beaucoup de 
commentaires à un programme dès qu'il est un peu complexe. 

VBA admet des commentaires en fin de ligne ou sur ligne entière. 

En fin de ligne, le commentaire commence par une apostrophe. Ex. : 


[Remise = Montant * 0.1 " On calcule une remise de 10% 


Sur ligne entiére, le commentaire commence par une apostrophe ou le mot-clé Rem. On utilise 
plutót l'apostrophe. Si le commentaire occupe plusieurs lignes, chaque ligne doit avoir son 
apostrophe. 

Les lignes vides sont autorisées en VBA ; elles peuvent servir à aérer le texte. Nous conseillons de 
mettre une apostrophe en téte pour montrer que le fait que la ligne soit vide est voulu par le 
programmeur. 


LES ESPACES 


Les espaces sont assez libres en VBA, mais pas totalement. Là où il peut et doit y avoir un espace, 
vous pouvez en mettre plusieurs, ou mettre une tabulation. 

On ne doit en aucun cas incorporer d'espaces à l'intérieur d'un mot-clé, d'un nom d'objet prédéfini, 
d'un nombre ou d'un nom de variable : ces mots ne seraient pas reconnus. 

Au contraire, pour former des mots, ces éléments doivent étre entourés d'espaces, ou d'autres 
caracteres séparateurs comme la virgule. 


Les opérateurs doivent étre entourés d'espaces, mais vous n'étes pas obligés de les taper, l'éditeur 
VBA les fournira sauf pour &. Si vous tapez a-n-c vous obtiendrez a = b + c. 


LES RETRAITS OU INDENTATIONS 


Les instructions faisant partie d’une même séquence doivent normalement commencer au même 
niveau d'écartement par rapport à la marge. Lors de l'emploi d'instructions de structuration, les 
séquences qui en dépendent doivent être en retrait par rapport aux mots-clés de structuration. En 
cas de structures imbriquées, les retraits doivent s'ajouter. Exemple fictif : 
x= 3 
Kor T = 2 TG 10 

a = 0.05 * I 

If b < x Then 


X = x - a 
Else 
Da paa 
End If 
Next I 


En cas de nombreuses imbrications, le retrait peut être un peu grand : bornez-vous à 2 caractères 
à chaque niveau. Bien sûr, ces retraits ne sont pas demandés par le langage, ils n'ont que le but 
de faciliter la compréhension en faisant ressortir la structure du programme (ou plutôt, la structure 
souhaitée, car, dans son interprétation, VBA ne tient compte que des mots-clés, pas des 
indentations : mais justement un désaccord entre les mots-clés et les indentations peut vous aider 
à dépister une erreur). 

Il est donc essentiel, bien que non obligatoire que vous respectiez les indentations que nous 
suggérerons pour les instructions. 
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AIDE À LA RECHERCHE D'ERREURS 
Nous avons vu plus haut que VBA introduisait de lui-même les majuscules voulues dans les mots- 
clés et les noms de variables, d'où notre conseil de tout taper en minuscules : s’il n'y a pas de 
transformation, c'est qu'il y a probablement une faute de frappe. 


Pour les mots-clés, on a une aide supplémentaire : VBA met les mots-clés en bleu (en fait, la 
couleur choisie par option) ; si un mot n'est pas transformé, c'est qu'il n'est pas reconnu, donc 
qu'il y a une faute. 

Une autre aide automatique est que, en cas d'erreur de syntaxe, VBA affiche aussitót un message 
d'erreur et met l'instruction en rouge. Bien sûr cela ne décèle que les erreurs de syntaxe, pas les 
erreurs de logique du programme. 


AIDES À L'ÉCRITURE 
L'éditeur VBA complète automatiquement certaines instructions : 


Dés que vous avez tapé une instruction Sub ou Function, VBA foumitle End Sub ou le End 
Function. 

Si vous tapez endi t sans espace, VBA corrige : “na 1f. Attention, il ne le fait que pour celle-là : 
pour Enc Select ou pour Exit Sub ou d'autres, il faut taper l'espace. 

Dès que vous tapez un espace après l'appel d'une procédure, ou la parenthèse ouvrante à l'appel 
d'une fonction, VBA vous suggère la liste des arguments. Il le fait toujours pour un élément 
prédéfini ; pour une procédure ou fonction définie par vous, il faut qu'elle ait été définie avant. 
Dès que vous tapez le As dans une déclaration, VBA fournit une liste déroulante des types 
possibles ; il suffit de double-cliquer sur celui que vous voulez pour l'introduire dans votre 
instruction. Vous avancez rapidement dans la liste en tapant la premiére lettre souhaitée. Un 
avantage supplémentaire est qu'un élément ainsi écrit par VBA ne risque pas d'avoir de faute 
d'orthographe. 

De méme, dés que vous tapez le point aprés une désignation d'objet, VBA affiche la liste 
déroulante des sous-objets, propriétés et méthodes qui en dépendent et vous choisissez comme 
précédemment. L'intérét est que la liste suggérée est exhaustive et peut donc vous faire penser à 
un élément que vous aviez oublié. Attention, cela n'apparait que si l'aide en ligne est installée et si 
le type d'objet est connu complétement à l'écriture, donc pas pour une variable objet qui aurait été 
déclarée d'un type plus général que l'objet désigné (ex. As Object). 
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PROJETS, DIFFÉRENTES SORTES DE MODULES 


DÉFINITION 


Un projet est l'ensemble de ce qui forme la solution d'un probléme (nous ne voulons pas dire 

« application » car ce terme a un autre sens, à savoir l'objet Application, c'est-à-dire Excel lui- 
même), donc un classeur Excel avec ses feuilles de calcul, et tous les programmes écrits en VBA 
qui sont sauvegardés avec le classeur. Les programmes sont dans des modules ; le texte des 
programmes est affiché dans des fenêtres de code. Il peut y avoir un module associé à chaque 
feuille ou au classeur. Il peut y avoir un certain nombre de modules généraux. De plus, le projet 
peut contenir aussi des modules de classe et des boîtes de dialogue créées par le programmeur : 
chaque BDi a en principe un module de code associé. 

Un programme peut ouvrir d'autres classeurs que celui qui le contient ; ces classeurs forment 
autant de projets, mais secondaires par rapport au projet maitre. 


LES FENÊTRES DU PROJET 


L'écran VBA contient principalement la fenétre de projet oü apparait le projet associé à chaque 
classeur ouvert. Chaque projet y apparaît sous forme d'une arborescence (développable ou 
repliable) montrant tous les éléments du projet. Sous la fenêtre de projet, peut apparaître une 
fenêtre Propriétés qui affiche les propriétés d'un élément choisi dans la fenêtre de projet ou d'un 
contróle sélectionné dans une BDi en construction. 

La plus grande partie de l'écran sera consacrée aux fenêtres de BDi en construction ou de code. 
Comme ces fenétres sont en principe présentées en cascade, on choisit celle qui est en premier 
plan par clic dans le menu Fenétre. On décide de l'affichage d'un tel élément par double-clic dans 
l'arborescence. 

On peut faire apparaitre d'autres fenêtres par clic dans le menu Affichage. C'est le cas des fenêtres 
de (l'Explorateur de) Projets, Propriétés, Explorateur d'objets, Exécution, Variables locales et 
Espions, ces trois dernières servant surtout au dépannage des programmes. 

Le menu Affichage permet de basculer entre l'affichage d'un objet (comme une BDi) et la fenêtre 
de code correspondante (raccourci touche F7). 


Le choix des fenétres à afficher peut se faire aussi par des boutons de la barre d'outils Standard de 
l'écran VBA. 


DIFFÉRENTES SORTES DE MODULES 


À chacune des quatre rubriques de la hiérarchie dépendant du projet correspond une sorte de 
module. À Microsoft Excel Objects (les feuilles et le classeur) correspondent des modules oü se 
trouveront les programmes de réponse aux événements de la feuille (ex. Worksheet Change) ou 
du classeur (ex. Workbook Open). 

À Feuilles correspondent les BDi construites par le programmeur (UserForms). Chacune a un 
module associé qui contient les procédures de traitement des événements liés aux contróles de la 
BDi (ex. UserForm Initialize, CommandButton1 Click, etc.) ; 

À Modules correspondent les différents modules « normaux » introduits. C'est dans ces modules 
(en principe, on les regroupe en un seul) que sont les procédures de calcul propres au probléme. 
La dernière sorte de modules dépend de la rubrique Modules de classe ; les modules de classe 
permettent de définir des objets propres au programmeur. Ils sont beaucoup moins souvent 
utilisés car, vu la richesse des objets prédéfinis en Excel VBA, on en utilise rarement plus de 10 96, 
alors on a d'autant moins de raisons d'en créer d'autres ! 

Une demiére rubrique, Références peut étre présente dans l'arborescence, mais elle n'introduit pas 
de modules. 
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LA COMMANDE OUTILS-OPTIONS 
Cette commande concerne les projets par ses onglets Généra/et Ancrage. L'onglet Ancrage décide 
quelles fenétres vont pouvoir étre ancrées c'est-à-dire fixées en périphérie de l'écran. Ce n'est pas 
vital. L'onglet Généra/a plus à dire : 


Options x 


Édteur | Format de l'édteue Général | Ancrage | 


Paramètres de grille de la feuille | Modifier et continuer 

F Afficher la grile [^ Ayertr avant perte d'état 
Unités de la grile : Points Ré ibn disse 
Largeur : |6 C Arrêt sur toutes les erreurs 
Hauteur : [6 C Arrêt dans le module de dasse 

[V Aligner les contrôles sur la grile Arrêt sur les erreurs non gérées 

[ Compéaton - 
V. Afficher les info-bulles I Compilation sur demande 
F Réduire le proj. masque les fenêtres | V Compilation en arrière-plan 


a 


— Le cadre Paramètres de grille de la feuille gère le placement des contrôles sur une BDi 
construite par le programmeur, donc voir chapitre 6. 

- M Afficher les info-bulles affiche les infobulles des boutons de barre d'outils. 

- M Réduire le proj. masque les fenêtres définit si les fenêtres de projet, UserForm, d'objet ou de 
module sont fermées automatiquement lors de la réduction du projet dans l'Explorateur de 
projet. 

— Le cadre Modifier et continuer. 

- M Avertir avant perte d'état active l'affichage d'un message lorsque l'action demandée va 
entraîner la réinitialisation de toutes les variables de niveau module dans le projet en 
cours. 

— Le cadre Récupération d'erreur définit la gestion des erreurs dans l'environnement de 
développement Visual Basic. L'option s'applique à toutes les occurrences de Visual Basic lancées 
ultérieurement. 


— © Arrêt sur toutes les erreurs: en cas d'erreur quelle qu'elle soit, le projet passe en mode 
Arrét. 

— © Arrêt dans les modules de classe : en cas d'erreur non gérée survenue dans un module 
de classe, le projet passe en mode Arrét à la ligne de code du module de classe oü s'est 
produite l'erreur. 

— © Arrêt sur les erreurs non gérées : si un gestionnaire d'erreurs est actif, l'erreur est 
interceptée sans passage en mode Arrét. Si aucun gestionnaire d'erreurs n'est actif, le 
projet passe en mode Arrét. Ceci est l'option la plus conseillée. 
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— Compilation 

- @ Compilation sur demande définit si un projet est entièrement compilé avant d'être 
exécuté ou si le code est compilé en fonction des besoins, ce qui permet à l'application de 
démarrer plus rapidement, mais retarde l'apparition des messages d'erreur éventuels dans 
une partie de programme rarement utilisée. 

- M Compilation en arrière-plan définit si les périodes d'inactivité sont mises à profit durant 
l'exécution pour terminer la compilation du projet en arrière-plan, ce qui permet un gain 
de temps. Possible seulement en mode compilation sur demande. 


LA COMMANDE OUTILS-PROPRIÉTÉS DE «NOM DU PROJET» 
Cette commande fait apparaitre une BDi avec deux onglets : 


VEAProject - Propnélés du projet X || VBAProject - Propriétés du projet x 
Général | Protection | Général Protection | 
Verroulage du projet 
Nom du projet : 
M Yerroutier le projet pour l'affichage] 
Description du projet : 
ID de contexte 
Nom du fichier dde Tade du projet 
[ E Ü Mot de passe pour l'affichage des propriétés du projet 
Mot de passe 
Arguments de compéaton condionnede : 
[ E Confirmer le mot de pease 
OK Perder Ade ok Ave | ete 


— L'onglet Généra/ permet de donner un nom plus spécifique que VBAProject, et surtout de 
fournir un petit texte descriptif. Les données concernant l'aide n'ont plus d'intérêt : la mode est 
maintenant de fournir une aide sous forme HTML. La compilation conditionnelle est sans réel 
intérêt. 

— L'onglet Protection permet de protéger votre travail. 

- M Verrouiller le projet pour l'affichage interdit toute modification de n'importe quel 
élément de votre projet. Il ne faut y faire appel que lorsque le projet est parfaitement au 
point ! 

— La foumiture d'un mot de passe (il faut le donner deux fois, c'est classique) empéche de 
développer l'arborescence du projet dans la fenétre Explorateur de projets si l'on ne donne 
pas le mot de passe. Donc un « indiscret » qui n'a pas le mot de passe n'a accés à aucune 
composante de votre projet. 


LA COMMANDE OUTILS-RÉFÉRENCES 
Permet de définir une référence à la bibliothéque d'objets d'une autre application pour y 
sélectionner des objets appartenant à cette application, afin de les utiliser dans votre code. C'est 
une facon d'enrichir votre projet. 
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LES DIFFÉRENTES SORTES D'INSTRUCTIONS 


Les instructions VBA se répartissent en instructions exécutables ou ordres et instructions non 
exécutables ou déclarations. 


INSTRUCTIONS EXÉCUTABLES 


Ce sont les instructions qui font effectuer une action par l'ordinateur. Elles se répartissent en : 


- Instructions séquentielles, telles que l'instruction qui sera exécutée après est l'instruction 
qui suit dans le texte. 

— La principale instruction de cette catégorie est //nstruction d'affectation, de la forme 
[Set] «donnée»-«expression», où l'expression indique un calcul à faire. L'expression 
est calculée et le résultat est affecté à la donnée. En l'absence de Set (on devrait 
normalement mettre Let, mais il n'est jamais employé), l'expression conduit à une valeur 
et «donnée» est une variable ou une propriété d'objet ; elle recoit la valeur calculée 
comme nouvelle valeur. Avec Set, l'expression a pour résultat un objet et «donnée» est 
une variable du type de cet objet : aprés l'instruction, cette variable permettra de désigner 
l'objet de facon abrégée. À part l'appel de procédures, cette instruction est la plus 
importante de tout le langage. 

- Toute une série d'actions diverses, notamment sur les fichiers (Open, Close, Print...) 
ou sur certains objets (Load, Unload...) ou encore certaines opérations système (Beep, 
Time...). Ces instructions pourraient d'ailleurs aussi bien être considérées comme des 
appels à des procédures ou des méthodes prédéfinies. 


— Instructions de structuration, ou de rupture de séquence, qui rompent la suite purement 
linéaire des instructions, aiguillant le traitement vers une séquence ou une autre selon des 
conditions, ou faisant répéter une séquence selon les besoins. Ces instructions construisent 
donc la structure du programme. La plus importante est : 

- L'appel de procédure : on déroute l'exécution vers un bloc d'instructions nommé qui 
remplit un róle déterminé. La fin de l'exécution de la procédure se réduit à un retour dans 
la procédure appelante juste après l'instruction d'appel. Cela permet de subdiviser un 
programme complexe en plusieurs petites unités beaucoup plus faciles à maîtriser. La 
plupart du temps, l'instruction se réduit à citer le nom de la procédure à appeler. 

Les autres instructions de structuration permettent d'implémenter les deux structures de la 

programmation structurée. 

— La structure alternative où, en fonction de certaines conditions, on fera une séquence ou 
bien une autre. VBA offre pour cela deux instructions principales, - £ qui construit une 
altemative à deux branches et select Case qui permet plusieurs branches. 

- La structure itérative ou boucle, où on répète une séquence jusqu'à ce qu'une condition 


soit remplie (ou tant que la condition contraire prévaut). VBA offre pour cette structure les 
instructions Do...Loop..., Wnile..Wend et, surtout, For..Next qui est la plus employée. 


INSTRUCTIONS NON EXÉCUTABLES OU DÉCLARATIONS 


Ces instructions ne déclenchent pas d'actions de l'ordinateur, mais donnent des précisions au 
système VBA sur la manière dont il doit traiter les instructions exécutables. La plus importante de 
ces instructions est la déclaration de variable qui : 

— Annonce qu'on va utiliser une variable de tel ou tel nom. 

— Indique le type (par exemple réel, ou entier, etc.) de la variable, c'est-à-dire des données 
qu'elle va contenir. Il est évident que les calculs ne s'effectuent pas de la même façon sur un 
nombre entier ou sur un réel. C'est en cela que les déclarations orientent le travail de VBA. 
Elles sont donc aussi importantes que les instructions exécutables. 
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LES DIFFÉRENTES SORTES D'INSTRUCTIONS 


Place des déclarations de variables 
Normalement, il suffit qu'une déclaration de variable soit n'importe où avant la première utilisation 
de cette variable. En fait on recommande vivement de placer les déclarations de variables en tête 
de leur procédure. Par ailleurs, certaines déclarations de variables doivent être placées en tête de 
module, avant la première procédure du module. 


Parmi les déclarations importantes, les couples sub End Sub et Function … End 

Funct ion délimitent respectivement une procédure ou une fonction. Sub et Fanction ont en 
outre le rôle de déclarer des éventuels arguments. Les deux Ena ... sont à la fois des 
déclarations — elles délimitent la fin de la procédure ou de la fonction — et des instructions 
exécutables : lorsque l'on arrive sur elles on termine la procédure ou la fonction et on retourne à 


l'appelant. 


DIRECTIVES 
Les directives sont des déclarations particulières qui jouent un rôle global au niveau du projet. 
Elles sont placées tout à fait en téte de module. Certaines peuvent étre spécifiées sous forme 
d'options de projet auquel cas la directive est écrite automatiquement en téte de tous les modules. 
Option Explicit 
Exige que toute variable soit déclarée. Nous conseillons vivement cette option car si vous faites 
une faute de frappe dans un nom de variable, en l'absence de cette option, VBA « croira » que 
vous introduisez une nouvelle variable, alors qu'avec cette option, il y aura un message d'erreur 
vous permettant de la corriger aussitót. 
Option Base «0 ou 1» 
Fixe à 0 ou à 1 la première valeur des indices de tableaux. La valeur par défaut est 0. Souvent les 
programmeurs utilisent les indices à partir de 1 sans spécifier Option Base 1: l'élément 0 est 
laissé vide. Cette pratique a un inconvénient : si par erreur un indice était calculé à 0, la directive 
assurerait un message d'erreur. 


Option Compare <choix> 

Fixe la façon dont les chaines de caractères sont comparées. Avec Text, une majuscule et sa 
minuscule sont confondues alors qu'avec 3inary, la comparaison est complète et les minuscules 
sont plus loin que les majuscules dans l'ordre alphabétique. 

Option Private Module 

Déclare le module entier comme privé, donc aucun de ses éléments, variables, procédures ou 
fonctions ne sera accessible depuis un autre module. 


LES MENUS DE L'ÉDITEUR VBA 


Bichier |. 

ll Enregistrer Essai. atsm 
Importer un fichier... 
Exporter un fichier. 
Suppnmer Module! 

dh imprimer... 


Cates 
Cie M 
CtrleE 


Ciis 


X Fermer et retourner à Microsoft Excel A-Q 


Umfommserltale — » 


Especement horizontal » 
Espacement vertical — » 
Centres sur la felle. » 
Réorganiser les boutons » 


Blan ] 


Quiis | Compléments | Fenétre 


EX Références. 


Macros... 

Options. 

Propnétés dg VBAProject. 
Signature électronique. 


Editon 
% Couper Cirie x 
4a Copier Crec 
Effacer Suppr 
Sélectionner tout Cirle 
Rechercher. Cti« 
Suivant B 
Remplacer... Cirie H 
8t Renit Tab 
FE Retrait négatif Maj- Tab 
E,  Répertorier les propriétés/méthodes Ctrled 
(à  Répertorier les constantes Cti« Majs 
Èo Info express Cnil 
XQ, Info paramètres Cirie Majo! 
As Compléter le mot Cris Espace. 
Signets 
Debogage 
Compiler VBAProject 
S3 Pas à pas détaillé FB 
3 i T 
#2 Exécuter jusqu'au curseur Cie Fa 
Ajouter un espion... 
* F 
éa Espion express... Maj Fo 
© Bacculer le point d'arrét ro 


Effacer tous les points d'ant Cris Majs F9 


@ Aide de Microsoft Visual Bask pour Applications 


MSDN tur le Web 
À propos de Microsoft Vnus Basic pour Applications... 


Affichage | 
E] Code F 
H Obje Maj 
Définrion Maj+F2 
[ position | Ctii« Majef 
"W^ Bplorateur d'objets [7] 
E Fenêtre Exécution eG | 
E Fenêtre Variables locales 
Ej Fenére Espions 
Pile des appe! triel 
SW Epjorateur de projets  Ctri+R 
IR Fenêtre Propriétés F4 
Barres d'outils , 
Microsoft Excel AtteF11 


| Exécution. 

|b ExteuterSub/UserForm F5 
Wü Ane 

M Hénitialiser 
hd Mode Créstion 


Cle Arrêt 


de compléments. 


Fractionner 

Mosaique horizontale 
Mosaïque verticale 
Cascade 

Réoiganiter les icônes 


| 1 Essait ads - Module! (Code) 


N.B. Certaines rubriques peuvent varier légèrement en fonction du contexte, selon qu'on est dans 
une procédure ou non et selon ce qu'on a fait précédemment ; ainsi Edition — Impossible d'annuler 
peut devenir Edition — Annuler, Exécuter Sub... peut devenir Exécuter la macro, etc. 


Vie d'un programme 


Différentes facons de lancer une procédure 


Mise au point d'une macro 


Utiliser l'aide 


L'explorateur d'objets 


Récupération des erreurs 
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DIFFÉRENTES FAÇONS DE LANCER UNE PROCÉDURE 


PAR INSTRUCTION D'APPEL 


Toute procédure peut être appelée depuis une autre procédure (ou fonction) par l'instruction 
d'appel de la forme : 


[Call] «nom de la proc. appelée» [<arguments éventuels>] 


Exemples : 
Traitement ‘il n'y a pas d'arguments 
Calcul 5, 4 `2 arg. ; procédure supposée définie par 


"Sub Calcul (a as Integer, b as Integer) 
Le mot-clé ca11 n'est presque jamais présent. Notez que la liste des arguments est entre 
parenthèses () dans la déclaration de la procédure, et sans parenthèse () dans l'appel. Les 
parenthéses () dans l'appel caractérisent une fonction ; si vous les mettez alors qu'il y a plusieurs 
arguments, il faut utiliser Ca 11. Pour plus de détails sur ces points, voyez le chapitre Procédures, 
fonctions, arguments. 
Cette manière de lancer une procédure est dite « méthode interne », mais elle pose question : 
comment lancer la procédure appelante. On voit qu'il faut des méthodes « externes ». 


PAR MENUS STANDARDS 


Depuis le classeur Excel 


Lorsqu'on ouvre un classeur Excel qui contient des macros, le comportement varie en fonction du 
niveau de sécurité choisi dans les options. Avec le niveau le plus conseillé, vous avez une barre en 
haut de l'écran : 


|. AVERTISSEMENT DE SÉCURITÉ Les macros ont été désactivées Activer le contenu 


m Si vous actionnez Activer le contenu| vous pourrez essayer les macros que vous aurez créées. 


m Si vous actionnez Les macros ont été désactivées, la BDi de “\Fichier -Informations s'affiche 
avec une partie d'avertissement : 


© Avertissement de sécurité 
Le centum ach pour mt contene des ens et Corngremettne ie 
Aere Meist. Le cortona suivant à été decactnd 
cont us 


Vous dame: active: M contra uaquement à vous approuve: E 
po 


Paratus du Caren de gaston de la conf dert 


En saves ph ma le 


V acu 


m Actionnez Paramètres du Centre de gestion de la confidentialité. vous obtenez la méme BDi 
que celle de © Fichier- Options — Centre de gestion de la confidentialité — Paramètres du 
Centre de gestion de la confidentialité. Son onglet Barre des messages doit être ainsi : 


Centre de gestion de la confidentialité 7 X 
m oppur 


Catalogues de compléments approuvés | Paramètres de la barre des messages posit toutes lex applications Office 


Compléments E Affichage de la barre 


Pari dires ActiveX 
Doreendtres des macros Ne jamais afficher d'informations sur un contenu bloqué 


Mode protégé Comsel de stratégie 


[V]. Afficher le conseil de stratégie dans te barre des messages. La désactivution de cette 

Contenu steme option désactivers tous les conseils de stratégie, seul si votre organnation exige leur 
| wppication. 

Peseenétres de blocage des Fichiers - = 

- [O Active: lo journafeation du Centre ce gestion de Is confidentialité - 
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wm Son onglet Paramètres des macros fixe le niveau de sécurité : 


Centre de gestion de la confidentialité ? x 
———— m = 
Catalogues de complements approuvés Paramètres des macros 
Compléments @O Désactiver toutes Jes macros sans notification 
| @@ Désactiver toutes les macros avec notification 
e Désactiver toutes les macros à l'exception des macros signées numériquement 
” O5; Lilo jeden snare Lion cacomisan dE] déquadi alicia da cod 
Mode protégé potentiellement dangereux) 
Barre des messages 
Paramètres de macros pour los développeurs 
Contenu externe. 
J Accès approuvé au modèle d'objet du projet YBA v| 
——Ó á—- 
[ o | | Annuler 
Le comportement que nous préconisons est obtenu avec l'option 6. L'option @ est pour les 


utilisateurs trop prudents. Si vous n'utilisez que les macros de ce livre, vous pouvez choisir l'option 
6, ce qui vous évitera d'activer les macros à chaque ouverture de classeur. Ce livre ne vous 
apprendra pas à créer des macros à virus. Donc, le risque évoqué ici ne devrait pas trop nous 
effrayer. En revanche, avant tout essai de vos « ceuvres », il est impératif que vous sauvegardiez 
le classeur, car il y a un risque réel de blocage de l'ordinateur suite à une erreur dans une macro 
VBA, méme les exemples de ce livre : vous n'êtes pas à l'abri des fautes de frappe. 
= Si vous utilisez aussi des classeurs « étrangers », choisissez l'option 6, car © n'affiche aucune 
notification. 
Ensuite, on peut choisir la procédure à exécuter : 
m Faites Développeur — [Code] — Macros; la BDi de choix de macro montre la liste de toutes 
les procédures dans les classeurs ouverts. 
m Choisissez dans la liste déroulante Macros dans le domaine où chercher les macros, soit l'un 
des classeurs ouverts, soit tous. 
= Cliquez sur la macro/procédure voulue et [Exécuter. 


| Macro OX 
Nom de la macro: 
2 
r————— i 
Bos à pas détaillé | 
Moste | 
Gm | 
supprime | 
Options. | 
Macros dans: | Tour les dasseurs ourerts ao 
Description 
Annuler | 
Depuis l'éditeur VBA 


m Étant dans l'écran de VBA, faites afficher la fenêtre de module voulue si elle ne l'est pas déjà. 

w Dans cette fenêtre, placez le curseur texte n'importe où à l'intérieur de la procédure voulue 
(entre Sub et End Sub). 

m Exécution - Exécuter Sub| User Form ou touche de raccourci |F5). 
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Attention : cette méthode fait exécuter la procédure de la même façon que la précédente sauf qu'il 
peut n'y avoir aucune feuille ni cellule active, alors que depuis la fenêtre Excel, ces éléments 
étaient définis. Donc si l'écriture de la procédure fait des hypothèses sur ces données, le 
fonctionnement risque d'être incorrect. Le mieux serait de rendre la rédaction indépendante en 
ajoutant des instructions pour activer la feuille et la cellule voulues. 


PAR ÉVÉNEMENTS 


Tout événement (clic, déplacement ou autre) peut étre associé à une procédure qui sera exécutée 
à la survenance de l'événement. Si on fournit une procédure elle sera exécutée à l'arrivée de 
l'événement avant (ou, si la procédure le spécifie, à la place de) l'action standard du système pour 
cet événement. Cette action systéme peut étre rien, auquel cas, si vous ne fournissez pas de 
procédure, votre application sera insensible à cet événement. 

On distingue les événements naturels qui arrivent dans tout classeur (ex. changement de valeur 
dans une cellule, déplacement de la cellule active, activation d'une feuille, ouverture d'un classeur, 
passage d'un contrôle à un autre dans une BDi, validation d'une BDi...) et les événements ad-hoc 
qui sont introduits uniquement pour démarrer une certaine procédure par un simple clic, ce qui est 
beaucoup moins fastidieux que la méthode précédente. 


Événements ad-hoc 


On va créer un élément : bouton, forme géométrique, image, bouton de barre d'outils, nouveau 
menu ou nouvelle rubrique de menu et à l'événement clic sur cet élément on va associer la 
procédure que nous voulons lancer facilement. La personnalisation des barres d'outils et menus est 
discutée dans le chapitre Commandes par boutons, barres d'outils ou menus. Ici, nous ne 
regardons que le cas des boutons ou des dessins. 


Pour implanter un contróle bouton : 
m Affichez la boite à outils Contrôles par © Développeur — [Contrôles] — Insérer : 


[3 Propriétés. 


& Visualiser le code 


B LA] Exécuter la boite de dialogue 


Contróles de formulaire ** 
agd © 
E 


Choisissez l'outil Bouton de commande (Contróle ActiveX). 

Le curseur souris prend la forme d'une croix ; délimitez le rectangle du bouton par 
glissement souris sur la feuille. 

m Cliquez droit sur le bouton ; choisissez Propriétés dans le menu déroulant. Il apparaît une 
fenétre de propriétés analogue à celle de VBA. Le plus indispensable est de changer la 
propriété Caption (libellé qui s'affiche sur le bouton) pour remplacer le libellé passe-partout 
CommandButtoni par une mention spécifique du traitement (Ex. Nouveau Client...) 
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m Fermez la fenêtre de propriétés. Nouveau clic droit sur le bouton et Visualiser le code. On 
passe alors à la fenêtre VBA et dans un module intitulé du nom de la feuille de calcul où se 
trouve le bouton on trouve l'enveloppe d'une procédure CommandButton1 _ Click 1 suffit 
d'y taper l'appel de la procédure à associer, c'est-à-dire son nom. 

m Quittez le mode création par clic sur ©] Développeur- [Contróles] - Mode Création. 


Pour implanter un contróle dessin : 

m Faites © Insertion — [Illustrations] — Formes. Cliquez sur un rectangle (vous pouvez aussi 
choisir l'ellipse ou Zmage). 

— Pour rectangle ou ellipse, délimitez le rectangle conteneur par glissement souris sur la 
diagonale. Clic droit sur le contrôle, Ajouter du texte dans le menu déroulant, tapez le 
texte voulu. Puis clic droit vous permet d'agir sur la police (nous suggérons de choisir 
Gras) et Format de la forme ; regardez plus particulièrement Zone de texte qui permet de 
spécifier l'alignement (nous suggérons Centré pour Horizontal et Vertical) et Remplissage 
où nous suggérons de spécifier un remplissage gris clair. Vous pouvez agir aussi sur 
l'épaisseur de bordure. Le groupe © Format- [Styles de forme] offre beaucoup de 
possibilités. 

— Pour une image faites © Jnsertion — [Illustrations]-Images et choisissez le fichier voulu 
dans la BDi qui apparait. L'image vient en superposition sur la feuille : ajustez sa taille et 
faites-la glisser à l'emplacement souhaité. 

m Clic droit sur le contrôle et A/fecter une macro dans le menu déroulant. Une BDi de choix 
de macro quasi identique à la figure du début de chapitre apparait. 

m Choisissez la procédure voulue et [OK]. 
Si au lieu de choisir une procédure existante dans la liste vous gardez le nom proposé 
d'emblée (exemple : Rectanglel_ QuandClid), on passe dans l'éditeur VBA ce qui vous 
permet de taper le contenu de la procédure dans le Module 1. 


Événements naturels 
Ce sont les événements pour lesquels il n'y a pas besoin de créer un objet à cliquer. Ces 
événements peuvent se produire d'office. Si vous ne fournissez pas de procédure affectée à un tel 
événement, c'est l'action normale du systéme qui prévaut. Si vous fournissez une procédure, elle 
est exécutée avant l'action système et elle peut éventuellement l'inhiber. 
Ces procédures doivent étre placées dans la fenétre de code du module associé au conteneur de 
l'objet concerné : 
- pour un contróle d'une BDi, c'est le module de code de la BDi. 
pour une cellule ou une zone de feuille de calcul, c'est le module associé à la feuille : vous 
ouvrez un tel module par double-clic sur Feu//«7-» dans l'arborescence Microsoft Excel Objects ; 
pour un élément concernant le classeur entier, c'est 7hisWorkbook dans la méme arborescence. 
Ces fenétres de code ont en haut deux listes déroulantes. 
Pour définir une telle routine, choisissez l'objet dans la liste de gauche, puis la routine dans la liste 
de droite. Principaux objets et événements : 


Conteneur Objet Événements 
Feuille Contróle CemmandButton<n>_ Click : dic sur le contrôle (ex. 
bouton) 
s Worksheet WorkSheet_SelectionChange : On active une autre 
cellule 
i 3 Worksheet Change : on change le contenu de cellule 
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Conteneur Objet Événements 
Classeur entier Workbook Workbook Activate : activation du classeur 


3 " Workbook Open : ouverture du classeur (*) 


i i Workbook_BeforeClose : avant fermeture du classeur 


BDi Contrôle <Contrôle> Click : clic sur le contrôle 


i s <Contrôle> Enter : on arrive sur le contrôle 


5 » <Contrôle> Exit : On quitte le contrôle 


ii " <Contrôle> Change : on change la valeur du contrôle 


(*) Workbook Open permet d'implanter un traitement qui se fera dès qu'on ouvrira le classeur ; 
c'est le moyen d'assurer le démarrage automatique d'une application. 


PAR RACCOURCI CLAVIER 
Une autre solution semble très séduisante : on peut associer une combinaison [tril + fouche au 
déclenchement de l'exécution. On peut spécifier la touche dans la BDi d'enregistrement de la 
macro. Il faut y penser juste avant l'enregistrement. Si vous n'y avez pas pensé ou s'il s'agit d'une 
procédure entrée directement par l'Éditeur : 

= C Développeur — [Code] — Macros : La BDi (de la page 27) apparait. Attention, il faut 
demander cette commande depuis la fenétre Excel, et non VBA ; depuis VBA, la commande 
Outils — Macros fait apparaitre la même BDi, mais sans bouton Options). 


m Choisissez la procédure voulue. 
" Options : La BDi suivante apparait (elle permet aussi de fournir une description). 


Options de macro ? x 


Nom de la macro : 
Aff 


Touche de raccourci : 
Ctrie | 
Description: 


m 


L'inconvénient à notre avis rédhibitoire de ce dispositif est que si vous choisissez une combinaison 
qui a déjà une fonction, celle-ci disparaît et le système ne prévient absolument pas. Vous risquez 
ainsi de perdre irrémédiablement un raccourci extrémement important. 


Une alternative plus intéressante est offerte par l'événement on&e y de l'objet Application. Il 
offre même plus de possibilités : on n'est pas limité aux combinaisons avec {tri et on peut rétablir 


l'ancienne fonction de la combinaison. Ceci est traité au chapitre 8. 
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Une fois écrite, la macro ne donne pas forcément du premier coup les résultats souhaités. 
Différents comportements sont possibles au moment où on demande l'exécution pour un premier 
essai (redonnons d'ailleurs ce conseil qu'on ne répétera jamais assez : sauvegardez le classeur 
avant de demander l'exécution) : 

— le programme peut s'arrêter avant même d'avoir démarré en signalant une erreur de 
compilation (1) ; 

— le programme s'arrête sur message d'erreur (2) ; 

— le programme tourne indéfiniment (3) ; 

— le programme s'achève, mais les résultats sont faux ; signalons que pour pouvoir déceler une 
telle erreur, il faut effectuer certains essais avec des données telles qu'on connaisse d'avance 
les résultats, ou qu'ils soient facilement calculables (4). 

(1) Montre l'instruction en cause surlignée en jaune. Les erreurs de syntaxe concernées sont plus 

subtiles que celles qui sont décelées à l'écriture ; elles mettent souvent en jeu des 

incompatibilités entre plusieurs instructions alors qu'a l'écriture, l'analyse se limite à une 
instruction. 

On peut faire apparaître ces erreurs en demandant Débogage — Compiler VBAProject. 

L'avantage par rapport à l'exécution est que ceci détecte toutes les erreurs de syntaxe alors 

que l'exécution ne donne que celles des instructions par oü on est passé. 

Fait apparaitre une BDi comme : 


S 


Microsoft Visual Basic 


Erreur d'exécution '11': 


Division par zéro 


T |__| Cent | 


et le programme se trouve arrêté. Si le bouton est présent (il est absent si l'écran VBA 

n'est pas activé), et si vous cliquez dessus, vous passez à l'affichage du module et l'instruction en 

cause est surlignée en jaune. Nous verrons plus loin ce qu'on peut faire. 

(3) Est vraisemblablement dü à une portion de programme qui boucle. Le plus souvent, on arrive à 
reprendre le contrôle par la combinaison Ctr] + Pausd. On est alors ramené au cas précédent : 
une des instructions de la boucle en cause est surlignée. On peut donc voir quelle est la boucle 
infinie et, de là, comprendre si la condition d'arrét est mal exprimée ou si les données qui y 
interviennent sont mal calculées. 


(4) Est le plus difficile à gérer puisque là, c'est la logique du programme qui est en cause. Les 
outils à mettre en œuvre sont les mêmes que pour les autres cas. 


OUTILS DE MISE AU POINT 


Les outils offerts par VBA pour aider à comprendre les erreurs sont, d'une part des moyens 
d'affichage (infobulles, fenétre Variables locales, Pile des appels, Espions), d'autre part des moyens 
d'exécution (Pas à pas, Points d'arrét, instruction Stop). 

La fenétre Exécution appartient aux deux catégories puisqu'on peut y afficher des données, mais 
aussi y taper des instructions. Ces moyens servent plus souvent en mode arrét, mais certains 
peuvent être exploités pendant que le programme tourne et ce n'en est que mieux. 
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MOYENS D'AFFICHAGE 


Infobulles 
Lorsque le programme est arrété sur erreur, si vous amenez le curseur souris sur une variable 
dans la procédure oü on se trouve, il apparait une info bulle qui donne la valeur. 

L'exemple de code suivant qui sert à afficher le dialogue que vous voyez au bas de cette page ; si 
vous amenez le curseur souris sur y, vous obtenez une infobulle y=0| : 


Sub Mauvaise () 
Dim x As Double, y As Double, z As Double 
x-5 
y=0 
|| zexusy 
End Sub [y 9) 


Fenétre variables locales 
On l'obtient par Affichage — Fenétre Variables locales dans l'écran VBA. Elle donne la valeur des 
variables : 


Un point très important est que vous pouvez modifier une valeur dans cette fenêtre : sélectionnez 
la valeur, modifiez-la puis cliquez ailleurs dans la fenêtre. 


Pile des appels 


Un clic sur le bouton E] à l'extrême droite de la ligne VBAProject..., ou Affichage — Pile des appels 
donne une fenétre qui affiche la succession des appels de procédures. C'est utile dans les cas les 
plus complexes. 


Espions 
m Sélectionnez la variable y. 
= Débogage — Ajouter un espion. y apparaît comme expression espionne : 


Ajouter un espion x 
Expression : 
Ma LJ 
Ame | 
[Contexte 
Procédure : [Mauvaise z] Ade | 
Module : [Module E 


Projet: — VBAProject 


Type d'espion 
(9 Expression espionne 


C Arrêt si la valeur est yraie 
| C Arrêt sila valeur change 


Les choix les plus intéressants sont les boutons radio. Ils parlent d'eux-mêmes. 
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m Cliquez sur OK. 


Module I. 


Espion express 
Si vous avez oublié de définir un espion avant que le programme ne s'arrête sur erreur, il est 
encore temps : 
m Sélectionnez l'expression voulue. 
m Débogage - Espion express. 


Espion express x 
p Contexte 

| VBAProject. Module 1. Mauvaise 
| Expresson 

y 


Valeur 
IL] 


Un clic sur | Ajouter | ajoute l'expression comme espion. 


MOYENS D'EXÉCUTION 


Pas à pas 


On peut demander l'exécution pas à pas, c'est-à-dire instruction par instruction. On l'obtient par 
Outils — Macro — Macros, puis Pas à pas détaillé depuis l'écran VBA (© Développeur — [Code] — 
Macros depuis Excel). Sinon, ayant le curseur souris dans la procédure voulue, demandez 
Débogage - Pas à pas détaillé 


Ceci est extrêmement fastidieux et ne doit être utilisé qu'en dernier ressort si on ne comprend pas 
la cause de l'erreur. Un peu moins fastidieux sont (Débogage —) Pas à pas principal (qui exécute 
les procédures appelées à vitesse normale) et Pas à pas sortant (qui fait sortir de la procédure en 
cours à vitesse normale). En mode pas à pas, on avance d'une instruction par F8. 


Points d'arrét 


Il peut étre préférable d'introduire quelques points d'arrét, par exemple avant un passage qu'on 
voudra surveiller particulierement. Pour cela : 

m Amenez le curseur sur l'instruction voulue. 

= Débogage — Basculer le point d'arrêt (Raccourci |F9|)). Cette même commande permet d'ailleurs 


de supprimer le point d'arrêt. Un point d'arrêt apparait sous forme d'un point bordeaux dans 
la marge grise. 


Supprimer les points d'arrét 


Nous venons de voir comment en supprimer un. Pour supprimer tous les points d'arrét, c'est 
Débogage — Effacer tous les points d'arrêt (Ctri-Maj* F9). 

Exécuter jusqu'au curseur 
Une autre commande qui fait le m&me effet qu'un point d'arrét (mais il ne peut y en avoir qu'un) 


est Débogage — Exécuter jusqu'au curseur|Ctri+Fg. Il faut bien sûr avoir préalablement placé le 
curseur dans la fenétre module sur l'instruction voulue. 
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Instruction Stop 


Les points d'arrêt ne sont pas conservés lorsqu'on sauve le programme. On peut à la place insérer 
des instructions Stop qui font arrêter le programme de la même façon et permettent tout autant 
d'examiner les variables et les espions. 


Que faire après un arrêt ? 
Après avoir éventuellement modifié certaines données, on peut : 
— continuer pas à pas à coups de F8. 
— reprendre l'exécution là où on est ; cela se fait par Exécution — Continuer ou |F5| ou B 


— reprendre l'exécution à une autre instruction. Pour cela, il suffit de faire glisser à la souris la 
flèche jaune qui marque l'instruction où on en est dans la marge grise. Une autre manière est 
de cliquer sur l'instruction voulue puis Débogage — Définir l'instruction suivante ou (Ctri+|F9). 
tout remettre à zéro, soit parce qu'on voudra ré-exécuter depuis le début, soit parce qu'on veut 
abandonner temporairement pour étudier le problème. Cela s'obtient par clic sur (m| ou 
Exécution — Réinitialiser ou clic sur Fin dans la BDi de la figure page 31. Cela peut aussi avoir 
lieu si vous modifiez le programme : une BDi vous prévient. 


La fenêtre Exécution 
En fait, la technique moins fastidieuse pour comprendre ce qui se passe dans un programme est 
de l'exécuter à vitesse normale, mais en insérant par endroits des ordres d'impression de données 
stratégiques. Pour cela, on peut utiliser MsgBox, mais cette instruction crée un arrêt ; exactement 
ce que nous voulons éviter. La solution est d'utiliser la fenêtre Exécution. Au lieu de MsgBox 
«donnée», on utilise Debug. Print <donnée> et l'écriture se fera dans la fenêtre Exécution, 
sans causer d'arrét. Les données à imprimer ainsi peuvent étre des valeurs de variables, des textes 
du genre « On décèle l'événement ... », ou « On arrive à la procédure ... ». 
Pour visualiser la fenêtre Exécution dans l'écran VBA, faire Affichage — Fenêtre Exécution. 
(Etra). 

Le mode immédiat 
Une particularité très intéressante de la fenêtre Exécution est que vous pouvez y taper des 
instructions VBA. Chaque instruction sera exécutée dès que vous taperez Entréd. C'est ce qu'on 
appelle le mode immédiat. 
Linstruction la plus utilisée dans ce contexte est Print (abrégé : ?) <variable>. Elle est 
intéressante car si l'on est en mode arrêt, les valeurs des variables avant l'arrêt sont connues, 
donc un ?<cette variable» a autant d'efficacité que les espions et fenêtre Variables locales. 


Par exemple, ?ActiveWorkbook.Name donne le nom du classeur actif ; si ce n'est pas celui 
que vous avez prévu, vous avez bientót compris pourquoi le programme ne fonctionne pas. 
Vous pouvez aussi taper des instructions qui modifient des valeurs de variables ou des données 
dans les classeurs, et reprendre l'exécution avec les données modifiées à l'instruction que vous 
voulez. 


Une autre possibilité de la fenêtre Exécution est qu'elle permet d'essayer des instructions : vous 
tapez l'instruction à essayer dans la fenétre Exécution et vous vérifiez les effets. 
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UTILISER L'AIDE 


L'aide en ligne est un élément essentiel. Vous devez l'installer complètement. Si vous appartenez à 
une organisation où l'installation dépend du « Service Informatique », vous devez obtenir qu'il 
installe l’aide en ligne. 

L'aide intervient déjà dans le fait de proposer automatiquement de compléter les instructions lors 
de leur écriture. De plus, si vous tapez [Fi] aprés un mot-clé ou alors qu'il est sélectionné, l'aide sur 
ce mot-clé apparait. En outre, les BDi qui apparaissent lors d'un arrêt ont un bouton qui 
amène à une page en rapport avec le probléme. 


Appel direct de l'aide 
m Vous devez être dans l'écran VBA, sinon, c'est l'aide sur Excel que vous obtiendrez. 
wm ?- Aide de Microsoft Visual Basic pour Applications ou clic sur @ . Vous obtenez la page 


Web : 
O oo x Eh Soa s 
[6] a microsoft com. i vr = Zo 
Office 2013 and later Bl Des Suggests 
Recnerchez des procédures, des exemples de code, de la documentation sur les kits de développement logice! et les APL des L Lu 
références VEA, des formations et des articles techniques portant sur ie développement de solution ei la personnalsation de Excel — Exporter 
Dernière modification ; lundi 16 novembre 2015 € rate 


S'applique à : Excel 2012 | Excel 2016 


Découvrez comment utiliser le nouveau modèle de complément Office pour étendre l'expérience Office de 


Les plus consultés 
Référence VBA Excel 
Excel 2010 


2 en main 
plateforme 


Exemples de code 


Exemples de vode Excel sur dev.office.com 


i bibliothéque d'obyets pour c 


Appelez ensuite Reference VBA Excel. Des liens proposent les choix : 


Procédures... dans Excel : fournit une carte de rubriques décrivant des procédures de développement de solutions Excel 
personnalisées. 


+ Concepts : explique les principaux concepts relatifs au développement de solutions Excel personnalisées 
* Référence : fournit des références pour le modéle objet Excel. 


* Réfi 


ence Microsoft Graph Visual Easic : fournit des informations de référence sur les collections, les objets, les méthodes, les 


propriétés et les énumérations dans le modéle objet Microsoft Graph 


Nous n'insistons pas sur le mode d'emploi de la navigation qui est dassique : on développe une 
arborescence en cliquant sur le livre fermé et on la résorbe en cliquant sur le livre ouvert. Sinon, 
c'est un hypertexte classique. 


La zone d'entrée symbolisée par une loupe sert à taper un mot-clé ; le systéme proposera des 
rubriques adaptées ou demandera de reformuler la question. 


L'EXPLORATEUR D'OBJETS 


L'Explorateur d'objets est une extraordinaire source de renseignements, d'autant que la 


programmation VBA est surtout dépendante des objets de l'application hôte (Excel dans notre 
cas). 


= Dans l'écran VBA, faites Affichage — Explorateur d'objets ( FA) 


[routes bibliothèques> v «| »| Bal # 2] 
[range = LEA 


— Résultats de la recherche- 


ES" PageRangeCell ^ 


ES Range 
® Application ES Range 


Classes Membres de Range 


&) Protection ^ |: Activate 
If) PublishObject :& AddComment 
E PublishObjects Addindent 
if) Queries Address 
ifj QueryTable AddressLocal 
4$) QueryTables © AdvancedFilter 
if) QuickAnalysis © AllocateChanges 
WO [Range — AllowEGit 
if) Ranges Application 
Class Range 

Membre de Excel 


= Dans la première liste déroulante, choisir : 
— Soit «Toutes bibliothèques> 
m Tapez le mot cherché dans la 2* liste déroulante. 
W Choisissez ensuite une classe ou un membre sous Résu/tats de la recherche. 
W Vous pouvez alors choisir un membre dans la dernière liste. Le type d'un membre se 


reconnait à l'icóne devant son nom : 


eS Propriété *Méthode  # Evénement 


— Soit une des bibliothèques, par exemple VBA. 
m Choisissez une classe dans la liste Classes, puis un membre. 


Une fois qu'un élément apparait tout en bas, en vous avez déjà une description sommaire et, si 
vous tapez F1}, vous aurez un écran d'aide sur cet élément. 
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RÉCUPÉRATION DES ERREURS 


Il est trés mauvais d'avoir un programme qui s'arrête sur une erreur, surtout s'il s'agit d'un 
développement pour un client car les messages du systéme sont culpabilisants et laissent entendre 
qu'il y a une erreur de programmation. VBA permet au programme de garder le contróle en cas 
d'erreur. 

— Juste avant l'instruction (ou le groupe d'instructions) oü l'erreur risque de se produire, 
implantez On Error GoTo <étiquette>. Après le groupe, implantez 
On Error GoTo 0. 

— Aprés l'étiquette, on implante la routine de traitement de l'erreur. Elle contient sûrement des 
instructions MsgEox qui préviennent de l'erreur et sont moins rebutantes que le message 
normal du systeme. 

— En principe, on sait quelle est l'erreur produite puisqu'on connaît les instructions qui suivent le 
On Error... Toutefois, on peut tester Err . Number pour vérifier que c'est l'erreur prévue. Par 
exemple 11 est le numéro correspondant à la division par 0. Err.Description est une 
chaine décrivant l'erreur. 

— La routine doit se terminer par une instruction Resume : 


Resume (tout court) fait revenir à l'instruction qui a causé l'erreur. Il faut donc que le 
traitement ait résolu le probleme, sinon, elle se reproduit. 
Resume Next fait revenir à l'instruction qui suit celle qui a causé l'erreur. Donc le 
traitement remplace celle-ci, ou on y renonce. 
- Resume «étiquette» (rarement employé) fait sauter à l'étiquette indiquée. 
— N'oubliez pas d'implanter un Exit Sub juste avant l'étiquette du traitement d'erreur, sinon, 
on tombe inopinément sur ce traitement. 


Exemple : On essaie d'ouvrir un classeur ; en cas d'impossibilité, on demande à l'utilisateur de 
fournir la bonne désignation du fichier. Le retour se fait sur l'instruction d'ouverture, puisque 
l'erreur est censée être corrigée. 


Sub Ouvrir() 

Dim FN As String 
FN = "C:\ClasseurA.xlsx" 
On Error GoTo TraitErr 
Workbooks.Open Filename:=FN 
On Error GoTo 0 


Exit Sub 
TraitErr: 
FN = InputBox("Impossible d'ouvrir " + FN + — 
vbCr + “Entrez la bonne désignation") 
Resume 
End Sub 


Il y a une autre version page 90 et un autre exemple à la fin du chapitre 5 (page 86). 
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des données 


Désignation des données 


Instruction d'affectation 


Expressions et opérateurs 


Déclarations de variables, types, tableaux 


Traitements de chaînes de caractères 


© Eyrolles/Tsoft — VBA pour Excel versions 2019 et Office 365 


39 


DÉSIGNATION DES DONNÉES 


Toute opération d'un langage de programmation suppose d'agir sur des données. Pour qu'on 

puisse agir sur elle, une donnée doit étre désignée. Puis, la principale action qu'on peut exercer 

sur une donnée est de lui donner une valeur résultant d'un calcul, c'est le róle de l'instruction 

d'affectation qui sera vue dans la prochaine section. 

VBA manipule deux sortes de données : 

— des données propres au programme, que le programmeur introduit selon sa volonté, par 
exemple pour stocker un résultat intermédiaire ; 

— des données représentant des objets Excel ou leurs propriétés : leurs désignations ne sont pas 
arbitraires, il faut bien manipuler les objets nécessités par le probléme à traiter. 


DONNÉES PROPRES AU PROGRAMME 
Lorsque la donnée est connue du programmeur on la désigne par une constante, lorsqu'elle n'est 
pas connue au moment de l'écriture du programme, on utilise une variable, ce qui est un des 
éléments les plus utilisés en VBA. 

Constantes explicites ou littéraux 
Puisqu'on connait la donnée, il suffit de la citer. Par exemple, pour ajouter le nombre trois à la 
variable x, on écrira l'expression x + 3. 
Selon l'écriture utilisée, VBA attribuera automatiquement le type le plus approprié. 

Valeurs logiques 
Les deux seules valeurs utilisables sont True et False. On devrait plutôt parer de constantes 
symboliques. 

^ 

On écrit un simple nombre entier. Selon la valeur, le type Byte, Integer ou Long sera sous- 
entendu. 


Valeurs réelles 


Il y a une partie entiére et une partie fractionnaire, séparées par un point (à la différence de ce 
qui a lieu dans les feuilles Excel). Ex. 1.5 sera considéré comme Single, 


-7.000567891234 sera considéré comme Double. On peut aussi utiliser l'écriture 
<nombre>E<exposant> comme 0.15E10 (Single) ou 0. 1=-200 (Double). On peut utiliser la 
lettre D pour forcer le type Double : 1. DO. 

Dates 
Un littéral de date se présente entre # : #1/1/044 #1 Jan 2016+ 


Si vous mettez le nom du mois en entier, il faut le nom anglais. #5 january 20164 


Chaînes de caractères 
Les chaînes de caractères ou textes se présentent entre guillemets ("). Ex. "Bonjour" 
"Le résultat est: " "Dupont". Le texte que vous tapez sera mémorisé (et réutilisé ou ressorti 
plus tard) exactement comme vous l'avez tapé ; donc mettez les espaces et les majuscules 
exactement comme vous les voulez dans le résultat. 


Chaine vide 
Deux guillemets consécutifs expriment la chaîne vide (""), chaîne qui a zéro caractère. Elle est 
souvent élément de comparaison dans des tests. Flle peut s'exprimer aussi par certaines fonctions 
dans le cas où le résultat est la chaine vide comme Left ("a",0). 
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Incorporer un guillemet dans la chaine 


Si vous tapez un ", VBA considérera que c'est la fin de la chaîne. La solution est d'en mettre deux : 
l'instruction MsgBox "Je vous dis fera afficher Je vous dis "Bonjour". 


Autre solution semblable à la méthode ci-dessous : concaténer Chr(34) qui est le " : 
MsgBox "Je vous dis " + Chr(34) + "Bonjour" + Chr(34). 


Incorporer un caractère spécial dans la chaine 


Le probléme se pose pour les caracteres qui ont une touche au clavier mais que l'Éditeur VBA 
prend en compte de facon particulière (le principal est Entréd qui fait terminer la ligne), ou les 
caractéres qui ne sont méme pas au clavier. La solution est de concaténer Chr («code 
caractère>). Pour certains caractères, il existe une constante symbolique prédéfinie. En voici 
quelques-unes : 


Caractére Chr Constante 
Entrée] ou €] Chr (13) vbCr 

Saut de ligne Chr (10) vbLf 

Retour chariot + Nouvelle ligne Chr (13)+Chr(10) vbCrLf 

Car. de code 0 Chr (0) vbNullChar 
Tabulation [f] Chr (9) vbTab 
Retour arrière [$] Chr (8) vbHack 


Vérifier le type d'une constante 
Si vous voulez vous assurer que VBA interpréte le type d'une constante comme vous le prévoyez, 
ouvrez une fenêtre Exécution et tapez ? TypeName («constante»). Par exemple : ? 
TypeName (1.E0) donne Single, ? TypeName (1.D0) donne Double. 


Constantes symboliques prédéfinies 


VBA propose un grand nombre de constantes nominales prédéfinies dans pratiquement tous les 
domaines de programmation. True et False, les deux valeurs du type booléen en sont. Les 
constantes représentatives de caractères ci-dessus en sont aussi. En voici quelques autres jeux : 


Constantes générales 
Null Valeur d'une variable Variant qui ne contient aucune valeur valide 
Error Valeur d'une variable Variant pour signaler une erreur 
Empty Valeur d'une variable ou propriété non initialisée 


Constantes de touches 


vbKeyReturn Touche [c 
vbKeyShift Touche [Maj 
vbKeyControl Touche [cri 
vbKeyEscape Touche Échap] 
vbKeySpace Touche [Espace 
vbKeyLeft Touche curseur gauche 
vbKeyUp Touche curseur haut 
vbKeyRight Touche curseur droite 
vbKeyDown Touche curseur bas 
vbKeyA...2 Touches lettres 
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Constantes de types de fichier 


vbNormal, vbDirectory, vbHidden, vbSystem, etc. 


Constantes pour les BDi rudimentaires 


vbOKOnly, vbYesNo, vbRetryCancel, etc. décident quels boutons seront présents. 
vbOR, vbCancel, vbAbort, vbRetry, vbIgnore, vbYes, vbNo indiquent quelle 
réponse a été faite. 

Cette liste n'est que partielle. Vous trouverez des compléments dans la partie 4 et dans l'aide : 
spécifiez MsgBox dans la zone de recherche. 


Constantes nominales créées par le programmeur 
Le programmeur peut définir une constante nominale : désigner la constante par un nom parlant 
peut être plus clair que l'emploi d'un simple nombre. Par exemple, dans une routine d'impression 
où l'on veut tester si l'on a atteint la limite du nombre de lignes par page, une écriture de la forme 
If ligne = NbLignesParPage ... sera beaucoup plus parlante que If ligne = 60... 


Créer une constante nominale 
On procéde à peu prés comme pour déclarer une variable : 
Const «nom» [As <type>]=<valeur>[,<autres définitions>..] 


Exemple: Const NbLignesParPage - 60 

Const Rep As String = "C:\Clients”, E As Double = 2.71828 
La clause As «type» est facultative si le type peut se déduire de la valeur imposée. 
La constante s'utilise comme une variable, sauf que toute instruction susceptible de changer sa 
valeur est interdite, notamment l'affectation <nom> = ... Les règles concernant le nom sont les 
mémes que pour une variable. 


Variables 

Dés qu'on a besoin de pouvoir manipuler une donnée inconnue qui n'est pas un objet Excel, il faut 

pouvoir la désigner donc introduire une variable. Une variable a : 

— un nom qui sert à la désigner dans le programme ; 

- une adresse mémoire dont le programmeur n'a pas à se préoccuper (c'est l'avantage des 
langages de programmation évolués comme VBA) ; 

- un type qui détermine le domaine de valeurs que la variable peut stocker ; 

- une taille mémoire décidée par le type et, surtout ; 

- une valeur qui, elle, est susceptible de changer au cours de l'exécution du programme, d’où le 
terme « variable » : ex. calcul d'un résultat par approximations successives. 


Régles sur les noms de variables 

Pour introduire une variable, la première chose est de lui attribuer un nom. Les noms sont 

arbitraires (c'est-à-dire choisis librement par le programmeur) sauf : 

— maximum 255 caractères (en fait, il est déraisonnable de dépasser 30) ; 

— le premier caractère doit être une lettre. Les lettres accentuées sont autorisées mais c'est 
déconseillé ; 

— pas de caractères spéciaux point, espace, -, +, *, /, V : 
En fait, pour séparer des parties du nom, utiliser le souligné _ (ex. nom client); 

— les caractères %, &, !, $, #, @ ne peuvent être employés qu'en fin de nom et ils ont une 
signification particulière (voir les types) ; 

— pas de nom identique à un mot-clé (1f, For, etc.). Certains noms prédéfinis peuvent être 
redéfinis, mais c'est déconseillé. 
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Vous pouvez aussi utiliser les majuscules pour séparer les parties du nom. Si la première 
apparition du nom est WomClientet que vous tapiez tout en minuscules, l'éditeur VBA substituera 
les majuscules. C'est un excellent moyen de déceler une faute de frappe : utilisez un peu de 
majuscules dans vos noms, tapez tout en minuscules et vérifiez que l'éditeur supplée des 
majuscules ; s'il ne le fait pas, c'est qu'il y a une faute de frappe. 
Quelques conseils sur les noms 

Le seul vrai conseil que l'on peut donner est d'employer des noms parlants, c'est-à-dire qui font 
com prendre de facon évidente le róle que la variable joue dans le programme. x ne signifie rien 
alors que RacineCherchée a un sens. Bien sür, VBA n'impose rien dans ce domaine : les noms 
lui sont indifférents. 
Dans certains contextes de développement trés professionnels, on suit des r&gles particuliéres de 
dénomination, avec des préfixes impliquant le type de la variable. Par exemple inti, strNom, ou 
cTexte, nNuméro, dbIncrément. Une telle notation est souvent appelée « hongroise » ; elle a 
été introduite avec les langages de la famille du C, mais elle est parfaitement utilisable en VBA. 
C'est pratique pour, par exemple, avoir la version chaîne et la version numérique d'une même 
donnée : 
strNombrePages = TextBox1.Text "Le contenu d’une entrée 

"texte dans une BDi est 
intNombrePages = CInt(strNombreFages) ‘de type String 

“ici, il est converti 


Déclarations de variables 


En principe, toute variable est annoncée a VBA par une déclaration qui précise son type. Les 
déclarations de variables sont traitées dans le 3€ module de ce chapitre. 


DÉSIGNATION D'OBJETS 


Objets prédéfinis 
Les désignations des objets prédéfinis d'Excel et de leurs propriétés ne sont pas arbitraires (c'est- 
à-dire définies par le programmeur), donc on peut les considérer comme des constantes 
symboliques ou des variables prédéfinies. Elles obéissent au formalisme suivant, qui permet des 
désignations à étages où on passe d'un étage au suivant avec un point. Toute propriété se désigne 
par : <objet>.<propriété>. Maintenant, une propriété peut elle-même être un objet, d'où : 
<objet>.<sous-objet>.<propriété> avec un nombre de niveaux quelconque. 
De fait, on ne parle de propriété que lorsqu'on est au demier niveau et qu'on arrive à un élément 
de type booléen, numérique ou chaine. 
L'objet de niveau juste supérieur à un certain niveau s'appelle l'objet parent. Pour certains objets 
ou propriétés, le parent peut étre sous-entendu dans la désignation. Ainsi, dans la plupart des 
désignations, l'objet Application, qui est au sommet de la hiérarchie et représente l'application 
Excel elle-même, peut être sous-entendu ; mais pas dans la propriété 
Application.DisplayAlerts (booléen qui active l'affichage de messages d'alerte tels que 
« classeur non sauvegardé »). 


Exemples 
Quelques propriétés concemant le contenu d'une cellule de feuille Excel : l'objet Application 
étant sous-entendu, une cellule se désigne par : 
<désign. Classeur>.<désign. Feuille>.Range("<coord.>") OU 


<désign. Classeur>.<désign. Feuille>.Cells(<ligne>,<cclonne>). 
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Si le classeur est le classeur actif ActiveWorkbook, sa désignation est facultative. Si la feuille est la 
feuille active ActiveSheet, |a désignation est facultative. La propriété qui représente la valeur 
contenue dans la cellule étant Value, on peut avoir les désignations : 

Range ("A2").Value OU Range ("Montant") .Value OU Cel1s(2,1).Value pour désigner 
la valeur contenue en A2 dans la feuille active du classeur actif. La seconde désignation suppose 
que la cellule avait recu le nom Montant. Sinon, on peut avoir : 
Workbooks("exemple.xlsx").Worksheets ("Feuill").Cells(2,1).Value 

Une autre désignation de classeur souvent utilisée est ‘’nisWorkbook qui désigne le classeur où 
se trouve la procédure en train de s'exécuter (donc où est cette désignation) ; ce n'est pas 
forcément le même que le classeur actif. En tous cas, on ne peut accéder qu'à un contenu de 
cellule dans un classeur ouvert, mais pas forcément actif. 

La désignation Act: veCe11 porte sur la cellule active (de la feuille active). Sa valeur est 
ActiveCell.Value ; ActiveCell.Row estson numéro de ligne, ActiveCell.Column est 
son numéro de colonne ; ActiveCell.HasFormula est vrai si la cellule contient une formule. 
Ceci n'était que quelques exemples : il y en a plus au chapitre 5. 


Objets collection 
Certains exemples ci-dessus font appel à des noms avec un « s » : ce sont des collections d'objets. 
Par exemple Worbooks est un ensemble d'objets de type Workbook (sans « s »), collection de 
tous les classeurs ouverts. Worksheets est la collection des (Worksheet) feuilles de calcul du 
classeur parent. Ce11«s est la collection des cellules de la zone parent. 
Un objet individuel se désigne par : 
«nom collection» («numéro») (analogue à un élément de tableau indicé — mais dans ce 
cas les indices commencent toujours à 1). Worksheets (1) est la 1'€ feuille du classeur actif. 
- Qu «nom collection» ("«nom»"), exemple : Workbooks ("exemple.xlsx") OU 
Worksheets ("Feuill"). 
— Cells a soit un indice, soit, le plus souvent deux : ligne et colonne. Range peut spécifier une 
plage comme Range ("A2:D5"). 
Tout objet collection a une propriété Count qui est le nombre d'éléments. La plupart des objets 
ont une propriété Name : pour un classeur, c'est le nom de fichier ; pour une feuille, c'est le nom 
dans l'onglet ; le nom peut servir à individualiser l'objet dans sa collection. 


Méthodes 


Après un objet, au lieu d'une propriété, on peut indiquer une méthode. Une méthode est une 
fonction ou une procédure attachée à un objet. Elle peut avoir des arguments. 


Range ("AZ:D5") .Select sélectionne la plage indiquée. 


Workbooks.Open Filename :- "exemple.xisx" ouvre le classeur indiqué. 


Variables objets 
On peut définir une variable susceptible de désigner un objet. Le type est spécifié par une 
instruction Dim, et est à choisir parmi Obj ect (objet en général), Workbook (classeur), 
Worksheet (feuille de calcul), Range (zone ou cellule), TextBox (zone d'entrée de BDi), etc. 
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On écrit par exemple : 


Dim sh As Worksheet 

Set sh = Workbooks ("exemple.xlsx") .Worksheets ("Bilan") 

et, partout où il faudrait écrire : 
Workbooks ("exemple.xlsx") .Worksheets ("Bilan") .Value, 

Il suffira d'écrire sh . Value, ce qui est bien plus court. L'introduction de telles variables objets a 


surtout pour effet d'abréger les écritures ; nous verrons dans les extensions le rôle de variables 
objet de type Application. 
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INSTRUCTION D'AFFECTATION 


Aprés avoir désigné une donnée, on peut lui affecter une valeur par une instruction 
d'affectation. 


AFFECTATION ARITHMETIQUE 
C'est une des instructions les plus importantes de tout le langage : toute action pour modifier une 
donnée ou un objet passe par elle. Elle est de la forme : 
«variable» = «expression arithmétique^ 
(exemple : 2 - x * 0.012) 
L'expression arithmétique définit un calcul à faire. L'expression est calculée et le résultat stocké 
dans la variable indiquée. Le signe — peut donc se lire « prend la valeur » ou encore « nouvelle 
valeur de la variable égale résultat de l'expression ». Le signe = joue un rôle dissymétrique : les 
variables qui figurent dans l'expression à droite sont seulement utilisées pour le calcul, elles ne 
sont pas modifiées ; la variable à gauche du signe - voit, elle, sa valeur modifiée : 
n = n + 1 qui augmente de 1 la valeur de n (nouvelle valeur de n = ancienne valeur +1). 
Les variables à gauche du signe = et celles à droite peuvent aussi être des propriétés d'objets ; 
ceci permet de consulter des valeurs dans des feuilles ou de les modifier ou encore d'agir sur des 
objets en changeant les propriétés : 
Remise = 0.1 * Range ("A2") .Value récupère la valeur dans la cellule A2 et en calcule les 10%. 
Range ("B10").Value = 5 met la valeur 5 dans la cellule B10. 
Columns ("A:A").ColumnWidth = 15 élargit la colonne A. 
Les règles de calcul des expressions sont décrites dans le module suivant. 


Conversion de type lors de l'affectation 
Le résultat de l'expression a un type et la variable réceptrice de l'affectation aussi. S'ils sont 
différents, le résultat sera converti vers le type de la variable. Si l'on convertit vers un type moins 
riche, il y aura perte d'information (exemple : de réel vers entier on perd les décimales). 
De numérique vers chaine de caracteres, il faut toujours utiliser une fonction de conversion : 
Varchaine = Cstr (Nombre). Il faut en outre que la conversion soit possible : vers un type de 
plus faible capacité ou de chaine vers numérique, ce n'est pas toujours le cas (une chaîne ne 
représente pas toujours un nombre). 


AFFECTATION D'OBJETS 
L'affectation d'une valeur arithmétique à une propriété d'objet fait partie de la section ci-dessus. 
L'affectation d'objet revient à affecter un pointeur vers l'objet concerné : 
Set «variable de type objet» - «désignation d'objet» 
Dim zone As Range 


Set zone = ActiveSheet.Range("C5:F8") 


Le pseudo-objet Nothing signifie « aucun objet ». Par exemple l'affectation Set zon 
Nothing libere la variable. 


o 
u 


INITIALISATION DES VARIABLES 


À part sa déclaration, la premiere utilisation d'une variable doit étre l'affectation d'une valeur 
(initiale) cu initialisation. Cette initialisation doit avoir lieu, sinon, le programme démarre avec 
des valeurs non décidées par le programmeur et, donc, peut calculer faux. 


En VBA le mal est un peu atténué : on sait que les variables numériques ont par défaut la valeur 
C, les chaînes la valeur chaine vide, les cellules et les Variants la valeur Empty. 


EXPRESSIONS ET OPÉRATEURS 


Une expression arithmétique est l'indication d'un calcul à faire. Dans tous les cas elle est évaluée 

et c'est le résultat qui est utilisé. En VBA, on trouve des expressions arithmétiques : 

— soit à droite du signe = dans une affectation ; le résultat est affecté à la variable à gauche du 
signe = ; 

— soit parmi les arguments d'une procédure ou fonction ; le résultat est calculé et la procédure ou 
la fonction travaillera avec ce résultat parmi ses paramètres ; 

— une expression à valeur entière peut se trouver comme indice d'un tableau ; 

— des expressions logiques se trouvent dans les instructions de structuration I£, While, Do. 
Une expression de n'importe quel type gouverne une instruction Select Case. 

Une expression combine des opérateurs et des opérandes. Tout opérande peut étre de la forme 

(<sous-expression>) ce qui permet de rendre l'expression aussi complexe que l'on veut. 

L'ordre d'évaluation de l'expression est déterminé par le niveau de priorité des différents 

opérateurs et par les niveaux de parenthèses imbriquées. Lorsque deux opérateurs sont identiques 

ou de méme priorité, c'est le plus à gauche qui agit en premier. N'hésitez pas à employer des 

parenthèses pour forcer l'ordre que vous souhaitez, ou même des parenthèses redondantes pour 

clarifier l'expression. 

Normalement, les opérateurs sont séparés par des espaces, mais si vous ne les tapez pas, l'Éditeur 

VBA les suppléera. 


Opérateurs arithmétiques 


Dans l'ordre de priorité décroissante. Les traits séparent les niveaux. 
" Gens à ; 


- Prendre l'opposé 


* Multiplication 
i Division réelle 


+ Addition 
NE tS | a ee 
& Concaténation de chaines (+ convient aussi) 
Comparaison 
Tous au méme niveau, inférieur aux opérateurs arithmétiques. 
= Egalité 
<> Différent 
Inférieur 
<= Inférieur ou égal 
Supérieur 
>= Supérieur où égal 


Like Dit si une chaine est conforme à un modèle (avec jokers) 
"Bonjour" Like "Bon*" donne True (vrai) 
Is Identité entre deux objets 
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Logiques 
Dans l'ordre de priorité décroissante ; tous inférieurs aux opérateurs de comparaison. 
Not Contraire Not True donne False 
And Et logique vrai si et seulement si les deux opérandes sont vrais 
Or Ou inclusif vrai dès que l'un des opérandes est vrai 


Xor Ou exclusif vrai si un des opérandes est vrai mais pas les deux 
Eqv Equivalence vrai si les deux opérandes sont dans le méme état vrai ou faux 


Imp Implication a Imp b est faux si a vrai, b faux ; vrai dans les autres cas. 


L'évaluation d'une fonction et l'évaluation du contenu d'une paire de parenthéses sont plus 
prioritaires que les opérateurs. Quelques exemples : 


5 + 3 * 4 donne 17 

(5 + 3) * 4 donne 32 

7 < 5 + 3 donne vrai (5+3 est calculé d'abord et il est vrai que 7<8) 

(7 < 5) + 3 donne 3 (7<5 est faux donc 0 converti en entier avant d’être ajouté). 


Les opérandes 

Les opérandes peuvent être : 

— Toute sous-expression entre parenthèses, par exemple (a * x + b - 3 * c) 

- Une constante explicite ou symbolique 

— Une variable simple ou indicée, par exemple Montant Mat(I, 5*J-4) 
Une propriété d'objet, par exemple Range ("A2") . Value 

- Un appel de fonction avec ou sans arguments, par exemple Rnd Sin(xrad) 
Left (NomClient,1) IsEmpty (Cells(3, K)) 


Dans le cas d'une fonction, si les arguments sont sous forme de sous-expressions, celles-ci sont 
évaluées d'abord, la fonction travaille avec les valeurs obtenues et le résultat est utilisé dans 
l'expression. 


Questions de types 


La liste complète des types est dans le module qui suit. On a une notion intuitive des types et de 
leur ordre du plus petit (qui porte le moins d'information et occupe le moins de mémoire) au plus 
grand (le plus précis, le plus riche) : booléen « entier « long < single < double... 

La conversion d'un type plus petit vers un plus grand conserve l'information tandis que la 
conversion vers un plus petit peut entrainer une perte : 1 converti en réel donnera 1.000... 

tandis que 1.23456 converti en entier donnera 1. Pour les booléens convertis en numérique, Faux 
donne 0, Vrai donne 1. 

Lorsque deux opérandes sont confrontés pendant l'évaluation d'une expression, s'ils sont de méme 
type, l'opération se fait dans ce type, sinon, il y a conversion automatique vers le type le plus fort. 
Exceptions : la division / pour deux entiers donne un réel ; pour ^, si la puissance est négative, le 
nombre à élever doit être positif. 

Si la conversion automatique n'a pas lieu — c'est le cas pour les types chaines de caractéres et 
dates -, il faut employer des fonctions de conversions explicites. Explicite ou automatique, la 
conversion ne se fera que si la donnée est convertible : la chaine "ABCDEF" ne pourra jamais être 
convertie en nombre. Dans le cas d'une concaténation entre chaine et nombre, si vous employez 
+, VBA essaiera de convertir la chaine en numérique, si vous employez &, il essaiera de convertir 
le nombre en chaine. 
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DÉCLARATIONS DE VARIABLES 


Obligation de la déclaration 

Il est possible en VBA d'utiliser des variables sans déclaration préalable : à la première utilisation, 

VBA prend le nom en compte en tant que variable. Mais ceci est formellement déconseillé, et on 

recommande vivement de rendre obligatoire la déclaration des variables par la directive Option 

Explicit placée en tête de module. Ceci a deux avantages : 

1) Gain d'efficacité : une variable non déclarée a toujours le type Variant alors qu'une variable 
déclarée a presque toujours un type déterminé ; elle prend donc moins de place en mémoire et 
ses manipulations sont plus rapides. 

2) Aide à déceler certaines erreurs : si vous faites une faute de frappe dans le nom d'une variable, 
en l'absence d'obligation de déclaration, VBA considèrera qu'il y a une nouvelle variable et le 
programme calculera faux puisque certaines opérations qui devaient être effectuées sur la 
donnée seront faites sur l'autre variable ; en présence de l'obligation de déclaration, il y aura un 


message d'erreur (« variable non déclarée ») qui vous conduira à corriger immédiatement la 
faute. 


Place de la déclaration 
La seule obligation est que la déclaration se trouve avant toute utilisation de la variable. Mais, sauf 
pour ReDim, nous conseillons de regrouper toutes les déclarations en tête de procédure ou 
de fonction. Quant à Pub lic et Private, elles doivent être en tête de module avant toute 
procédure ou fonction. 


La déclaration Dim 
La principale déclaration de variable est Dim, de la forme : 
Dim <noml> [As <type>] [,<nom2> [As <type>] J.. 
Il peut y avoir autant de groupes «nom» As «type» que l'on veut ; ils sont séparés par des 
virgules : 
Dim NomClient As String 
Dim x 
Dim Wk As Workbook 
Dim A As Integer, B As Integer, C As Single, D As Boolean 
Dim I, J, K As Integer 
Le principal róle de la déclaration Dim est d'indiquer le type de la variable, ce qui implique la taille 
mémoire qui lui sera réservée et la gamme des valeurs qu'elle pourra prendre. 
Si la clause As est absente, le type est Variant, c'est-à-dire « type indéterminé au moment de 
l'écriture du programme ». En principe, on n'écrit pas ... As Variant (mais on peut), on omet la 
clause As. Une variable non déclarée est d'office Variant. La propriété Value d'une cellule est 
un Variant : on ne sait pas ce que l'utilisateur y a mis. Le type var: ant admet n'importe quel 
type de donnée : nombre, tableau, matrice. 
L'existence du type Variant etla facon de le spécifier empéchent de « mettre en facteur » une 
clause As sur plusieurs variables (alors que les versions primitives de Basic le permettaient, ce qui 
économisait des écritures). Dans la 5° déclaration ci-dessus, seule K est entière ; I et ] sont des 
Variants ; si les trois doivent être entières, il faut écrire : 
Dim I As Integer, J As Integer, K As Integer. 


Les noms sont choisis comme vu au début du chapitre. On ne doit en aucun cas déclarer le même 
nom deux fois dans le même domaine de portée, même si on attribue le même type. 
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Le mot-clé D: m peut être remplacé par Public (qui rend la variable accessible depuis d'autres 
modules), Private (qui rend la variable inaccessible depuis d'autres modules) et Static (qui 
garde la valeur d'une exécution à l'autre de la procédure). 


LES TYPES 
Les types attribuables par la clause As peuvent tout aussi bien étre des types objets. Ici, nous ne 
traitons que les types « arithmétiques ». 


Nom Taille mémoire Nature et gamme de valeurs 

Byte 1 octet Entier de 0 à 255 

Boolean 2 octets Booléen : valeur logique True ou False 
Integer 2 n Entier -32 768 à +32 767 

Long 4 " Entier long -2 milliards à + 2 milliards 


(inutile de retenir les valeurs exactes !!!) 
Single 4 " Réel simple précision : 7 chiffres significatifs 
«D : -3.xxE38 à 1.4xxE-45 
>0 :1.4xxE-45 à 3.xxE38 
Double a 4 Réel double précision : >14 chiffres significatifs 
«O0 : -1.79xxxxE308 à -4.94xxxxE-324 
>0 : 4.94xxxxE-324 à 1.79xxxxE308 
Currency B * Monétaire : on a 4 décimales et la valeur 


absolue de la partie entière peut aller jusqu'à 9 
millions de milliards !!! 


Decimal 12, * On peut avoir jusqu'à 28 décimales 
***Usage non recommandé*** 
Date g uU Dates du 1/1/0100 au 31/1/9999 
Heures de 0h00m00s à 23h59m59s 
String 10 octets 4 Chaine de caractères de longueur indéterminée 
longueur chaine (max. 2^31 caractères) 
String*n longueur chaine Chaine de caractéres de longueur indiquée 


dans la déclaration (max. 65 536 caractères) 
***sage non recommandé*** 


Il faut en principe choisir le type le plus petit compatible avec les données que la variable doit 
renfermer. Inutile de prendre un type réel si l'on est sûr que les données seront toujours entières. 
Toutefois, il faut prendre un type suffisant : par exemple, pour une variable Ligne qui doit 
représenter un numéro de ligne de feuille Excel, il faut un type entier, mais Integer ne suffit pas 
car il va jusqu'à 32 000 alors qu'un numéro de ligne va jusqu'à plus de 65 000 ; donc, sauf si on 
est sûr de n'utiliser que peu de lignes, la déclaration sera Dim Ligre As Long. 


La déclaration comme Dim x As String*15 déclare x comme chaine dont la longueur sera 
limitée à 15 caractères. Le type String sans limitation est plus souple. 
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Types définis automatiquement 
Type impliqué par la première lettre 


On utilise une instruction de la forme : 
Def<type abrégé> <lettres>[,<lettres>] 


Où «type abrégé» est une désignation de type parmi Boo! (Boolean), Byte (Byte), Cur 
(Currency), Date (Date), Do1 (Double), Int (Integer), tng (Long), Obj (Object), Sng (Single), 
Str (String), var (Variant) et «1ett res» représente une lettre ou un intervalle comme A-D (qui 
équivaut à A, B, C, D). 

Toute variable commençant par une des lettres citées ou appartenant à un des intervalles sera du 
type spécifié. 

Exemple: befint i-N fait que toute variable commençant par I, J, K, L, M, ou N sera Integer. 


Type impliqué par suffixe 
Les variables dont le dernier caractère est (9, #, %, &, ! ou $ ont leur type défini d'office selon : @ 
(Currency), * (Double), + (Integer), « (Long), ! (Single) et $ (String). On est même dispensé de 
la déclaration, chose que nous avons déjà déconseillée. De fait, ce procédé, qui est une survivance 
des versions les plus primitives de Basic, n'est plus de mise avec un langage devenu trés moderne. 


LES TABLEAUX 
On peut définir une variable qui, sous un seul nom, permet de manipuler plusieurs données (qu'on 
appellera « éléments »). C'est un tableau. Il est déclaré par : 
Dim «nom» («dimensionl»[,«dimension2»[,.]]) As «type» 
Cette fois, la déclaration est obligatoire. Dim peut être remplacé par Public, Private ou 
Static. Le nom suit les régles des noms de variables. Il peut y avoir jusqu'à 60 dimensions, mais 
il est déraisonnable de dépasser 3 ou 4 ne serait-ce que pour des raisons d'occupation mémoire. 
Un élément est désigné par «nom» (<indices>) où chaque indice est un numéro ; il y a un 
indice pour chaque dimension. Enfin «t ype» est le type de chaque élément. Tous les types sont 
utilisables. Les «dimensions» se spécifient : 
soit par un nombre ; 
— soit par «limite inférieure» To «limite supérieure»; 
— si les dimensions sont laissées vides (Dim A()), on a un tableau variable ; si ni dimension, ni 
type ne sont indiqués, on a un tableau libre (équivalent à Variant). 
Dans la première hypothèse, le nombre spécifie la limite supérieure. La limite inférieure est définie 
par la directive option Base 0 ou 1. (C'est 0 par défaut). Avec 0, le nombre d'éléments est 
nombre spécifié + 1. De fait, les programmeurs gardent souvent l'option par défaut, tout en 
n'utilisant jamais l'élément numéro 0. 


Un indice peut étre n'importe quelle expression à valeur entiére, simple constante (4), variable (K) 
ou calcul par exemple 3*1 + 4. 
Ex. Dim Vecteur (3) As Single, Matrice(10, 10) As Integer 

Dim NomsClients( 25 To 40) As String,T(),NC 
Une composante du Vecteur serait Vecteur(2). Un élément de la matrice pourrait être Matrice(I, J). 
Dans une telle matrice, VBA ne spécifie aucunement lequel des indices est celui de ligne et lequel 
l'est de colonne : c'est la facon dont vous écrivez votre traitement qui le décide. (Pour l'objet Cells, 


VBA s'est déterminé : le premier est l'indice de ligne). T et NC sont des tableaux libres. 
NomsClients (Numéro) = "Dupont" définit le nom du client de numéro Numéro. 
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Initialisation — Fonction Array 
Une désignation d'élément de tableau peut figurer à droite d'un signe = pour utiliser l'élément, ou 
à gauche pour lui affecter une valeur. Pour l'initialisation, il faut soit une affectation pour chaque 
élément, soit utiliser la fonction Array (ce qui exige un tableau libre) : 


Vecteur(1) = 1.5 

Vecteur(2) = 4.5 

Vecteur(3) = 12.78 

T = Array(1, 2, 3) 

NC = Array("Dupont", "Durand", "Duval") 
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TRAITEMENTS DE CHAÎNES DE CARACTÈRES 


Ces traitements sont très importants car beaucoup de données sont par essence de type chaîne de 
caractères (exemple : le nom d'un client, l'état d'un compte Débiteur ou Créditeur). Par ailleurs, 
beaucoup de propriétés d'objets sont de type chaine m&me si la donnée est numérique ; c'est le 
cas du contenu d'une zone d'entrée dans une BDi : TextBox1.Text est une chaine, à convertir si 
l'on veut récupérer un nombre. 


DONNÉES CHAÍNES 

Une variable chaîne se dédare par Dim Texte As String. Nous déconseillons l'emploi des 
variables chaînes à longueur limitée (ex. Dim Nom As String*10). 

Les constantes chaînes se présentent entre guillemets ("). Exemple : "Des mots.Des mots..". 
Les majuscules et les espaces comptent en ce sens qu'ils seront répétés tels quels. VBA ne fait 
aucune analyse syntaxique dans les guillemets. Rappelons que si une telle chaine doit étre à 
cheval sur deux lignes, il faut la scinder en deux parties concaténées. 


Un paramètre important d'une chaine est sa longueur = nombre de caractères. La chaine de 
longueur 0 est la chaîne vide, notée "", élément neutre de la concaténation. 


OPÉRATIONS SUR LES CHAÎNES 


Une donnée chaine peut être utilisée dans une expression à droite du signe =. Elle peut figurer à 
gauche pour recevoir une valeur : Nom = "Dupont". 


La seule opération définie sur les chaînes est la concaténation (= mise bout à bout : 
"Bon"+"4 our" donne "Bonjour"). En toute rigueur, l'opérateur de concaténation est &, mais on 
peut aussi employer +. Le comportement est différent en cas de mélange avec numérique : 
chaine & chaine donne chaine 
chaîne + chaine donne chaîne 
chaine & nombre donne chaîne (le nombre est converti) 
chaîne + nombre donne message d'erreur 
nombre & nombre donne message d'erreur 
nombre + nombre donne nombre 


INSTRUCTIONS SUR LES CHAÎNES 


On suppose 

Chl = "123456789" 

Ch2 = "wxyz" 

Ch3 - "abcdefghijklmn" 


Lset <chainel> = <chaine2> 

met la chaine2 à gauche dans chaine1. Si chaine2 est plus courte que chaîne1, on complète par 
des espaces, si elle est plus longue, on ne prend que le nombre de caractères de chaine, 

Len («chainel»). Avec les initialisations ci-dessus : 

LSet Chl = Ch2 donne Chi = "wxyznunau" 

LSet Chl = Ch3 donne Chi = "abcdefghi" 

RSet <chainel> = <chaine2> 

met la chaine2 à droite dans chaine1. Si la chaine2 est plus courte que la chaine1, on complète par 
des espaces ; si elle est plus longue, on ne prend que le nombre de caractéres de chaine1, 

Len (€chainel»), mais à partir de la gauche, donc le résultat est le même que LSet. Avec les 
initialisations ci-dessus : 
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RSet Chl = Ch2 donne Chi = "nanncwxyz" 

RSet Chl = Ch3 donne Chi = “abcdefghi" 

Mid (<chainel>,<départ>[,<longueur>]) = <chaine2> 

remplace dans chaine1, à partir de la position départ, longueur caractères pris dans chaine2. Si 
<longueur> n'est pas foumi, on considère toute la chaîne2. Si le nombre de caractères à installer 
dépasse la taille disponible, on ne prend que ce qu'il faut. 

Avec les initialisations ci-dessus : 

Mid(Chi,3) = Ch2 donne Chi = "12wxyz789" 


Mid(Ch:,3) = Ch3 donne Ch1 = "12abcdefg" 
Mid(Ch1,3,2) = Cn3 donne Chí = "12ab56789" 
Mid(Chi,1) = Ch2 donne Chi = "wxyz56789" . C'est cette solution et non Ls et qui convient 


pour installer une sous-chaine à gauche en gardant les caractères de droite. 


Fonctions Chaines 
Celles de ces fonctions dont le résultat est une chaîne existent sous deux versions : nom ou nom$. 
La version avec 5 est de type String alors que la version sans $ gère les chaines en tant que 
Variants. La version $ est un peu plus efficace mais elle donne un aspect tellement démodé aux 
programmes que les programmeurs emploient plutôt les noms sans $. Nous ne citons qu'eux dans 
la suite. Nous omettons quelques fonctions vraiment peu utiles. 


Fonctions d'extraction 
Len (<chaine>) 
fournit la longueur (= nombre de caractères) de la chaîne. Len ("Bonjour") vaut 7. Len est de 
type Long car les chaînes peuvent dépasser 32 000 caractères. 
Left (<chaine>,<n>) 
fournit les «n» caractères les plus à gauche de la chaine. Left ("Bonjour",3) donne "Bon". Si 
«n» est supérieur à la longueur, on obtient toute la chaîne. Si <n> vaut 0, on obtient la chaîne 
vide. 
Right (<chaine>,<n>) 
fournit les «n» caractères les plus a droite de la chaine. Right ("Bonjour", 4) donne "jour", Si 
<n> est supérieur à la longueur, on obtient toute la chaîne. Si <n> vaut 0, on obtient la chaîne 
vide. 
Mid (<chaine>,<d>[,<n>]) 
fournit les n caractères extraits de la chaine à partir de la position d. Mid ("Bonjour", 4,2) 
donne "jo". Si «n» n'est pas spécifié ou est supérieur au nombre de caractères restants après d, 
on obtient toute la chaine restante. Si «n» vaut 0, on obtient la chaine vide. 


Dans toutes ces questions, les positions de caractères sont comptées de gauche à droite à partir 
dei.Mid ("exte,1,1) est très importante : c'est le I" caractère de Texte, ce qui permet 
d'analyser une chaîne caractère par caractère. 


Fonctions de test 


InStr([<d>,]<chaine>,<sous-chaine>) 

indique si la sous-chaîne se trouve dans la chaîne ; si non, le résultat est 0, si oui le résultat est la 
position où commence la première concordance. <a> est la position où commencer la recherche, 1 
par défaut. Instr ("Bonjour","jour") donne 4; 

InStr("Bonjour","Jour") donne 0 (à cause du J majuscule) ; 

InStr ("ABRACADABRA", "BRA") donne 2 ; InStr (3, "ABRACADABRA", "BRA") donne 9. 


TRAITEMENTS DE CHAÎNES DE CARACTÈRES 


InStrRev(<chaîne>,<sous-chaîne>[,<d>]) 

agit comme Instr sauf que la recherche se fait en d'arrière en avant. Si Rep est le chemin 
d'accès à un dossier, Left (Rep, InStrRev(Rep,"\")-1) fournit le dossier père. 
IsDate (<chaine>) 

est vraie si la chaîne peut représenter une date. IsDate ("10/10/04") est vraie. 


IsNumeric (<chaine>) 
est vraie si la chaine peut représenter un nombre. IsNumeric("1000 Euros") est fausse mais 
IsNumeric ("1000 €") est vraie car l'argument s'interpréte comme un format monétaire. 


Fonctions de transformation 
LCase (<chaine>) 
renvoie la méme chaine, mais tout en minuscules. Seules les lettres sont transformées. 
LCase ("Bonjour") vaut "bonjour". If x = LCase (x)... teste si x ne contient pas de lettres ou 
que des minuscules. 
UCase (<chaine>) 
renvoie la méme chaine, mais tout en majuscules. Seules les lettres sont transformées. 
UCase ("Bonjour") vaut "BONJOUR". If x = UCase (x)... teste si x ne contient pas de lettres 
ou que des majuscules. 
Trim, LTrim, RTrim 
Ces fonctions renvoient une copie de leur argument débarrassé des espaces à gauche (LTrim), à 
droite (RTrim) ou les deux (Tr im). Les espaces internes restent. 
LTrim("LLLLLJabOcdtrrrr)") donne “abocdosoo0” 
RTrim ("CODD DabUedi LLL") donne “oooocabocd” 
Trim("TITTTlabHcdCTITT3") donne "abccd" 


Replace (expression,find,replace[,start[,count,[compare]]]) 

Les arguments sont nommés. On remplace dans expression les occurrences de find par 
replace.Si start est présent, on commence à la position qu'il indique, s'il est absent, on 
commence au début. Si count est présent, on fait count remplacements, s'il est absent, on fait 
tous les remplacements possibles. compare définit le mode de comparaison : 
vbUseCompareOption : obéit à Option Compare 

vbBinaryCompare (défaut): binaire 

vbTextCompare : texte (majuscules et minuscules confondues). 


La valeur renvoyée par la fonction est MiG(expression,start) ; Si start est absent, c'est la 
valeur de expression aprés transformation. 


Fonctions de construction 
Space (<n>) 
fournit une chaine formée de n espaces. 


String(<n>,<caractère>) 
où <caractère> est une expression chaîne de 1 caractère renvoie la chaîne formée de <n> fois 


ce caractère. String (5, "D") ouString(5, Chr (32))sont équivalents à Space (5). 


TRAITEMENTS DE CHAÎNES DE CARACTÈRES 


Fonctions de conversion 


Conversions de caractères 
Asc (<chaine>) 
renvoie le code (valeur numérique de la représentation binaire interne) du premier caractère de la 
chaîne. On ne l'utilise donc pratiquement qu'avec des chaînes de 1 seul caractère. Asc ("A") vaut 
65. Asc ("a") vaut 97. Asc("0") vaut 48. 
Chr (<n>) 
renvoie la chaîne de 1 caractère dont le code est n. C'est le moyen d'obtenir des caractères 
impossibles à obtenir au clavier. Chr (55) est "A" ; Chr (32) est l'espace ; Chr(13) est le retour 
chariot, etc. 


Conversions de nombres 
Val (<chaine>) 
renvoie le nombre représenté par la chaîne. Il faut que la chaine représente un nombre. Si vous 
connaissez le type du nombre, utilisez plutôt la fonction de conversion vers ce type CBool, 
CByte, CCur, CDate, CDec, CDbl, CInt, CLng, CSng. 
Str, CStr 
Ces fonctions font la conversion inverse. La différence est pour les nombres positifs : Str met un 
espace en tête (pour le signe), CStr n'en met pas. Str (-2) et CStr(-2) donnent 
"-2" ; Str (2) donne "o2" ; CStr (2) donne "2". Pour désigner une TextBox de BDi dont le 
numéro est calculé, on écrit : Controls ("TextBox"-CStr(I)). 
Format 
fournit la chaine convertie d'un nombre conformément à une chaine de format identique (mais en 
anglais) à celle qu'on fournit dans un Format personnalisé d'Excel. 
Format (0.12345,"##0,00") donne “on0,12" ; Format (Date, "dd/mm/yyyy") donne par 
exemple 11/10/2015. 
Oct et Hex 
traduisent respectivement leur argument en octal et en hexadécimal. 
Hex (7860) donne "1EB4". 


Fonctions d'analyse 
Split (<chaine>[,<délimiteur>[,<n>]]) 
fournit comme résultat un tableau d'indice de départ 0 dont les éléments sont les sous-chaines 
extraites de la chaîne limitées par le <délimiteur>. Si le délimiteur est omis, on utilise espace " " ; 
si c'est chaine vide, le résultat est un tableau à un seul élément (indice 0) formé de la chaîne de 
départ. «n» est la limite du nombre d'éléments à fournir ; -1 (valeur par défaut) ou omis signifie 
« pas de limite » donc fournir tous les éléments possibles. 


Exemple : x - Split("abra,cada,bra",",") fournit x (0) : "abra", x(1) : "cada" 
et x(2)] : "bra". 


Structuration des 
programmes 


Instructions de structuration : alternatives 


Instructions de structuration : itératives 


Procédures, fonctions, arguments 


Sous-programmes internes 


Instructions non structurées 
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INSTRUCTIONS DE STRUCTURATION : ALTERNATIVES 


Tout traitement peut être construit à partir de trois structures de base : la séquence (bloc 
linéaire), l'alternative (où, en fonction d'une condition, on exécute une séquence ou une autre) 
et litérative (où un bloc est exécuté plusieurs fois). Comme ces structures peuvent être 
combinées et imbriquées à volonté, on peut obtenir un programme aussi complexe que nécessaire. 
Pour les structures alternatives, VBA propose essentiellement deux constructions, 1 f et Select, 
plus trois éléments moins usités, Switch, Choose et Tif. 1f est la construction la plus 
fondamentale. 


IF 


Un 1f peut être monoligne (sans End If — peu utilisé) ou multiligne (avec End If) ce qui avec 
la présence ou l'absence de la clause E: se donne quatre formes : 


Monoligne Multiligne 
Sans If «condition» Then <In1>:<In2> If «condition» Then 
Else <In5 (Suite)> «Ini» 
<In2> 
End If 
<In5 (Suite)> 
Avec If «condition» Then <Inl>:<In2> Else _ If «condition» Then 
Else <In3>:<In4> «Inl» 
<In5 (Suite)> <In2> 
Else 
«In3» 
<In4> 
End If 


<In5 (Suite)> 


où <condition> est une expression logique que VBA évaluera vraie ou fausse, 
«Inl», <In2», etc. sont des instructions ; bien sûr, il peut y en avoir plus de deux dans chaque 
branche. La forme monoligne est plutôt déconseillée et à n'employer que si les instructions 
internes sont trés courtes. Par exemple : 

If x=3 Then a = 0 : Exit For 

If z="" Then m-0 Else m-CInt (z) 
Remarquez les deux-points (:) sil y a plusieurs instructions par branche. 
Dans la forme multiligne, remarquez les indentations : les instructions de chaque branche sont 
décalées puisque subalternes à la structure. Pour la frappe d'une telle structure, nous vous 
conseillons de taper le tf, c], [c], &1se, e] , [c] , na rf. Vous tapez les instructions sur les 
lignes vides laissées (en décalant...) et, ainsi, vous n'oublierez pas le End If, faute souvent 
commise, et les mots clés seront alignés. 


Que la forme soit monoligne ou multiligne, les instructions exécutées sont : 


«condition» Vraie Fausse 
Sans Else «Inl», <In2>, <In5> Tout de suite <in5> 
Avec Else «Inl», <In2>, <In5> <In3>, <In4>, <In5> 


Si la <condition> est vraie, on effectue les instructions de la clause Then puis on passe a la suite ; 
si elle est fausse, on effectue les instructions de la clause Else, si elle est présente ; si elle est 
absente, on passe immédiatement 4 la suite. 


INSTRUCTIONS DE STRUCTURATION : ALTERNATIVES 


LES CONDITIONS 


Les conditions peuvent être simples : 
— Simple comparaison x<3 Nom = "Dupont" 
— Appel d'une fonction booléenne qui teste un état : exemple: IsEmpty(Cells (L,K)) 
ou com posées, c'est-à-dire combinaison de conditions simples avec les opérateurs logiques, dont 
les principaux sont : 
- Not (contraire) : Not (a > 3) est identique à a «- 3 
— And (ET) : «ci» And «c2» est vrai si et seulement si «c1» et «c2» le sont ; pour exprimer 

« x compris entre a et b » écrire (x >= a) And (x <= b) 
— Or(OU inclusif) : «c1» Or «c2» est vrai dès que l'une de «c1» ou «c2» (ou bien les deux) est 

vraie ; « x pair ou 2100 » s'écrit (x Mod 2 = 0) Or (x > 100) ; 

« x est hors de l'intervalle a---b » s'écrit(x « a) Or (x > b) 

Voir les autres opérateurs au chapitre 3. Les parenthèses des exemples ci-dessus étaient inutiles 
(sauf celles de Not) compte tenu des règles de priorité, mais il est conseillé de les employer pour 
raison de lisibilité. 
Si x est un booléen, les écritures If x = True Then OUIf x = False Then sont, bien que 
fonctionnant, ridicules ; écrire If x Then etIf Not x Then. 


If imbriqués 
La clause Then ou la clause Else peut elle-même contenir un 1  : 
ce = 1 
If a < 100 Then 
If b > 30 Then 


c = 3 
Else 
c = 2 
End If 
End If 


Dans cet exemple, si 2 est supérieur ou égal à 100, c vaudra 1 ; si a<100 et b>30, cvaudra 3 ; si 
a«100 et b<30, c vaudra 2. 


FORME AVEC ELSEIF 


Nous conseillons moins cette forme qui n'appartient pas à la programmation structurée stricte. On 
peut obtenir un traitement équivalent avec des If Then Else imbriqués. 


On peut insérer autant de clauses ElseIf qu'on veut : 


If «cl» Tnen Exemple équivalent aux If 
xil» imbriqués ci-dessus 
ElseIf «c2» Then If a »- 100 Then 
«i2» c=1 
ElseIf «c3» Then ElseIf b 990 Then 
< c = 3 
Else Else 
<i4> Come 
End If End If 


Dans l'exemple précédent, les instructions <i1> sont effectuées si «c1» est vraie ; «i2» si «c1» 
fausse, mais «c2» vraie ; «i3» si «c1» fausse mais «c3» vraie ; «i4» si aucune des conditions 
n'est vraie. 
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SELECT CASE 


If permet de construire des alternatives à deux branches ; Select permet de construire des 
alternatives à branches multiples. Elle est de la forme : 


Select Case <expression> 
Case <H1> 
<in 1> 
[Case <H2> 
<in 2>] 


[Case Else 
<in e>] 
End Select 
<in suite> 


Remarquez les indentations. «H1», <42>, etc. sont des hypothèses, formées d'éléments séparés 
par des virgules ; un élément est soit une «donnée», soit un intervalle «àonnée 1» Te 
«donnée 2> («donnée» est une variable ou une constante), soit encore une assertion du genre 
Is «comp» «donnée». «comp» est n'importe quel opérateur de comparaison, mais pas Is ni 
Like. 1s est suppléé automatiquement si vous ne tapez que «comp». 

Exemple: 1, 2, 6 To 10, 13, Is > 20. VBA commence par évaluer l'expression». Sile 
résultat est compatible c'est-à-dire se trouve parmi les valeurs d'une des hypothèses, les 
instructions «in x» correspondantes sont exécutées, puis on passe à «in suite». Si aucune 
hypothèse ne convient, on exécute «in e» si la clause Case Else est présente, on passe 
immédiatement à «in suite» si elle est absente. 


Les types de l'eexpressicn» et des valeurs des hypothèses doivent être compatibles. L'esprit de 
la construction Select suppose que les hypothèses s'excluent, c'est-à-dire qu'il n'y a pas de 
valeurs appartenant à deux hypothèses mais VBA ne l'interdit pas. Si c'est le cas et que 
l'<expression> prend une telle valeur, deux séries d'instructions seront exécutées, ce que le 
programmeur n'envisageait probablement pas ; donc veillez à l'exclusion mutuelle des hypothèses. 
Exemples : 


Select Case Montant 
Case 0 To 2000 


Taux Remise - 0 
Case 2001 To 5000 

Taux Remise - 0.05 
Case 5001 To 10000 

Taux Remise - 0.07 
Case Else - 


Taux Remise - 0.1 
End Select 


Select Case Situation Famille 
Case "Marié" 
Nc = InputBox("Nom de votre conjoint ? ") 
Case "Divor 
D = InputBox("Date du divorce ? 
End Select 


(Cet exemple montre que Select peut être basé sur des chaînes de caractères.) 


INSTRUCTIONS DE STRUCTURATION : ALTERNATIVES 


AUTRES CONSTRUCTIONS 


Ces constructions sont beaucoup moins importantes que les précédentes, surtout I f. 


Fonction choose 
Choose(«i»,«expr l>, <expr 2>..,<expr n») où <i> aura une valeur inférieure ou égale 
au nombre des expressions <expr x», a pour résultat la valeur de l'expression numéro <i>. 
Choose (2, "Monsieur", "Madame", "Mademoiselle") donne "Madame". 


C'est utile pour passer d'un code entier à la donnée codée. 


Fonction switch 


Switch(«el 1>,<valeur 1>,<el 2>,<valeur 2»..) avec autant de paires expression 
logique / valeur qu'on veut, suppose que seule l’une des expressions logiques soit vraie : alors le 
résultat est la valeur correspondante. Si aucune expression n'est vraie, le résultat est Nu11. 


Switch(Pays-"France", "Paris", Pays="Allemagne", "Berlin", _ 
Pays-"Italie", "Rome") donne "Paris" après l'instruction Pays = "France". 
Fonction iif 


lif (<expr. logique», <expr. si vrai», <expr. si faux») a pour résultat la valeur 
de «expr. si vrai» Si«expr. logique» est vraie, la valeur de «expr. si faux» si elle 
est fausse. 

Iif(x >= 0, x, -x) est une manière sophistiquée de calculer Abs (x). 

Attention, dans toutes ces fonctions, toutes les expressions susceptibles de fournir le résultat sont 
évaluées, même celles qui ne serviront pas compte tenu de la valeur des expressions 
discriminantes ; en particulier des erreurs ne pourront pas être évitées par ces fonctions : 

Res = Iif(n <> 0, "Moyenne = " + CStr(S/n), "Effectif nul") donnera une 
division par 0 car la division S/n sera effectuée méme si la condition est fausse. L'extrait de 
programme suivant résout le problème : 


If n <> 0 Then 


Res = "Moyenne = " + CStr(S/n) 
Else 
Res = "Effectif nul" 


End If 


INSTRUCTIONS DE STRUCTURATION : ITÉRATIVES 


Les instructions itératives permettent de répéter une séquence un certain nombre de fois : une 
exécution s'appelle itération ; l'ensemble s'appelle une boucle. VBA propose huit constructions 
dans ce domaine, la derniere étant plutót une abréviation d'écriture. Toutes ces structures peuvent 
s'imbriquer entre elles et avec les structures alternatives. On conseille de respecter les 
indentations ci-dessous. 


WHILE...WEND (TANT QUE ... FAIRE ...) 


C'est la seule construction rigoureusement conforme à la programmation structurée car elle n'a 
pas la possibilité d'instruction Exit. Elle est de la forme : 


While «condition de continuation» 

«instr. à répéter» 
Wend 
Ce qui peut se traduire par Tant que «condition», faire ... La condition obéit exactement aux 
mêmes règles que dans If. L'exécution se fait ainsi : en arrivant sur le While, on évalue la 
condition ; si elle est vraie, on fait une itération, sinon, on saute derrière le wena, donc cette 
structure peut effectuer 0 itération. Après une itération, on teste à nouveau la condition et tant 


qu'elle est encore vraie on refait une itération. Évidemment, il faut que les données évoluent de 
façon que la condition devienne fausse, sinon le programme boucle indéfiniment : 


While True 
Wend 


boucle indéfiniment. Il ne reste que (Ctri+|Pausd pour arrêter. Le problème est que les bouclages 
sont plus insidieux. Une simple faute d'orthographe dans le nom de la variable qui devrait causer 
l'arrét suffit : 


n = 10 
While n > 5 

m = n-1 $ erreur: ona mism au lieu den 
Wend 


DO WHILE...LOOP (FAIRE TANT QUE... BOUCLER) 


Do While «condition de continuation» 
«instr. à répéter» 
Loop 


DO UNTIL...LOOP (FAIRE JUSQU'À... BOUCLER) 


Do Until «condition d'arrét» 
«instr. à répéter» 
Loop 


DO...LOOP WHILE (FAIRE...BOUCLER TANT QUE...) 
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Do 
«instr. à répéter» 
Loop While «condition de continuation» 


DO...LOOP UNTIL (FAIRE...BOUCLER JUSQU'À...) 


Do 
«instr. à répéter» 
Loop Until «condition d'arrét» 
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Si «condition d’arr&t>et<condition de continuation» sont contraires l'une de 
l'autre, les constructions 2 à 5 sont quasiment équivalentes (et équivalentes à 1). 2 et 3 sont dites 
à test en tête, 4 et 5 à test en fin. Ceci entraîne trois choses : 

— Pour que le test en téte puisse &tre effectué, il faut, avant le Do, implanter les instructions 
nécessaires au 1*' test alors que 4 et 5 n'en ont pas besoin. 

— Puisque le test est en téte dans 2 et 3, si la condition pour arréter est déjà réalisée en arrivant 
sur la boucle, il y aura 0 itération d'effectuée. Avec 4 et 5, quoi qu'il arrive, il y a une itération 
d'effectuée. 

— La différence avec 1 est que ces quatre structures admettent parmi les instructions à répéter 
une instruction Exit Do qui fait sortir de la boucle, donc aller juste après le Loop. Cette 
instruction doit toujours être dans un I£ ; en somme la condition du While ou du Until 
orchestre le déroulement normal ou prévu de la boucle tandis que la condition de Exit Do 
prend en compte une raison accidentelle de quitter la boucle. 

Par exemple, on cherche le nom de client Dupont dans la 1° colonne de la feuille ; évidemment, il 

faut s'arrêter si la cellule est vide (fin de la liste) : 


L=0 
Do 
L=L+1 
If IsEmpty (Cells (L,1)) Then Exit Do 
Loop Until Cells(L,1).Value = "Dupont" 
FOR...NEXT 


Voici la structure de boucle la plus employée : elle a l'avantage de gérer automatiquement une 
variable compteur des itérations, donc elle est idéale pour parcourir tous les éléments d'une 
variable tableau, toutes les lignes ou les colonnes d'une feuille, les caractéres d'une chaine à 
analyser un par un ; dans l'exemple ci-dessus, nous avons été obligés de manipuler explicitement 
la variable L. La forme est : 


For «compteur» = «début» To «fin» [Step <pas>] 
«instr. à répéter» 
Next [<compteur>] 


«compteur: est la variable qui accompagne les itérations. «début», «fin» et «pas» sont des 
expressions (le plus souvent des constantes, parfois des variables, mais toute expression est 
admise), formant respectivement la valeur initiale, la valeur finale et le pas d'incrémentation du 
compteur lors des itérations. Ces paramètres sont évalués une fois pour toutes à l'arrivée sur le 
For, donc, s'ils dépendent de variables que des instructions à répéter modifient (très 

déconseillé !), cela n'aura pas d'effet sur le déroulement de la boucle. 

Le rappel de la variable «compteur» dans le Next n'est pas obligatoire, mais il est fortement 
recommandé, surtout en cas de ror imbriqués. Le Step est facultatif ; en cas d'absence, la valeur 
par défaut du «pas» est 1. Le «pas» peut étre négatif ; on dit alors que la boucle est 

« descendante » ; dans ce cas, le Step doit être présent et <iébut> doit être supérieur à <fi n>. 
Pour les boucles ascendantes, <fin> doit être supérieur à <aébut>. 

Si ces conditions ne sont pas réalisées, il ne devrait y avoir aucune itération de faite, mais For est 
une structure de type « test en fin », donc une itération est effectuée dans tous les cas. Par 
ailleurs, Fox admet une instruction Exit Fox (qui doit étre conditionnelle), permettant de quitter 
la boucle avant que «compteur» atteigne la valeur finale prévue. 
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Déroulement 
On commence par donner à «compteur» la valeur <début>. On effectue la 1 itération avec 
cette valeur. 
Arrivé sur le Next, on fait «compteur» = «compteur» + «pas»: «compteur» augmente si 
le «pas» est positif et diminue si le «pas» est négatif. On teste si l'on doit faire une autre 
itération ; c'est là que les boucles ascendante et descendante différent : 
— sile «pas» est >0, on teste si «compteur» qui vient d'être modifié est < <fin> ; si oui on 

repart pour une itération ; 

— sile «pas» est <0, le test est «compteur» 2 «£in». 
On voit que la dernière valeur de <compteur> pour laquelle une itération sera effectuée est 
«fin» si cette valeur fait partie de la suite «iébut» - n * «pas». Sinon, elle est inférieure à 
«fin» pour une boucle ascendante, supérieure à «tin» pour une boucle descendante. Juste 
après l'instruction Next lorsque la boucle est terminée, <compteur> est > «tin» (boucle 
ascendante) ou < <fin> (boucle descendante). 
Aucune des instructions à répéter ne doit modifier la variable <compteur> ; seul le mécanisme de 
la boucle le peut, sinon, il y a risque de bouclage infini. 


Exemples 


Boucle descendante et son équivalent avec Do : 


N = 10.5 
For N = 10.5 To 5 Step -1 Do 
MsgBox N MsgBox N 
Next N N = N - 1 
MsgBox “A la fin, N=“ & N Loop While N >= 5 
MsgBox “A la fin, N=“ & N 


Les valeurs affichées seront 10.5, 9.5, 8.5, 7.5, 6.5, 5.5 eta la fin N = 4.5. 
Parcours de la partie utile d'une feuille de ventes (date en col. 1, montant en col. 2) 


SommeVentes = 0 

For L = 1 To 500 ' On suppose qu'il y a moins de 500 ventes 
If IsEmpty(Cells(L,1)) Then Exit For 
SommeVentes = SommeVentes + Cells(L,2).Vaiue 

Next L 

MontantMoyen = SommeVentes / (L-1) 


On suppose qu'on sort de la boucle par Exit For, donc L final est le numéro de la 1'€ ligne vide, 
soit 1 de plus que le nombre de ventes. Remarquez initialisation de la somme à 0. 


For imbriqués 
Les instructions à répéter peuvent contenir un For (ou aussi une autre structure). Le Next du 
For interne doit se trouver avant celui du For externe (règle d'emboitement). La 29 boucle doit 
avoir une variable compteur différente. On peut d'ailleurs avoir un emboitement invisible : la 
boucle externe appelle une procédure qui contient aussi un For ; à ce propos, les programmeurs 
devraient éviter la tendance naturelle à toujours appeler I1 la variable compteur ; le cas que nous 
évoquons montre l'intérét à rendre la variable compteur locale à la procédure, quand on le peut. 


On transfère la zone A1:J10 dans une matrice 10 x 10, les cellules vides donnant 0 
Dim Mí10,10) As Double 
Por g = $ To 19 
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For K = 1 To 10 
If IsEmpty(Cells(L,K) Then 
M(L,K) = 0 
Else 
M(L,K) = Cells(L,K).Value 
End If 
Next K 
Next L 
FOR EACH...NEXT 


Cette structure permet de parcourir tous les éléments d’une collection, par exemple tous les 
classeurs de la collection Workbooks, toutes les feuilles de Worksheets, etc. La variable 
d'accompagnement doit être du type élément de la collection : 
For Each <variable> In <collection> 

<Instr. à répéter> 
Next [<variable>] 


Les programmeurs citent rarement la <variable> dans le Next, ce qui distingue de la boucle 
For I =... 
L'exemple qui suit teste si le classeur actif a une feuille nommée Bi/an : 


Dim Sh As Worksheet, Trouvé As Boolean 


Trouvé = False 
For Each Sh In ActiveWorkbook.Worksheets 

If Sh.Name = “Bilan” Then Trouvé = True : Exit For 
Next 


Si la feuille cherchée est trouvée, on positionne le booléen et on sort de la boucle : il est inutile de 
tester les feuilles qui restent. 


WITH 
La désignation d'objets par objet.sous-objet.. propriété peut être longue. Si l'on a 
plusieurs propriétés du même objet à manipuler, With offre la possibilité de « mettre le préfixe en 
facteur » : 
With <désign. objet» 
-<propriété 1> = . 
x = .<propriété 2> 
End With 
Ce n'est pas réellement une itération, mais une facilité d'écriture. Les with peuvent être 
imbriqués : 
With ActiveSheet 
With .PageSetup 


.CenterHorizontally = True * tay 
.CenterVertically = True 

End With 

.PrintCut * (b) 


End With 


La ligne (a) remplace ActiveSheet. PageSetup.CenterHorizontally = True, la ligne (b) 
remplace ActiveSheet.PrintOut . On voit l'économie, surtout s'il y a beaucoup de propriétés 
ou méthodes à appeler. 
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La possibilité d'isoler dans un traitement des parties qui forment un tout individualisé est d’un 
grand secours pour le programmeur qui peut ainsi décomposer un traitement complexe en étapes 
plus simples et plus compréhensibles (a). Une autre utilité est d'individualiser une routine qui sert 
plusieurs fois, mais qu'il suffira d'écrire une fois et qui n'occupera qu'une seule fois sa place en 
mémoire (b). 


(b) 


Il y a trois sortes de telles entités : les procédures, les fonctions et les sous-programmes internes. 
Les procédures et les fonctions forment des entités séparées, qui peuvent avoir des variables 
locales, c'est-à-dire qui peuvent étre traitées comme différentes tout en ayant le méme nom. Les 
sous-programmes internes au contraire sont entre l'en-tête et le Ena d'une procédure ou d'une 
fonction : ils ont donc les mémes variables. Les fonctions calculent une valeur sous leur nom ; 
elles sont appelées au sein d'une expression et la valeur calculée intervient dans l'expression à 
l'endroit de l'appel. Les procédures et les fonctions échangent certains paramétres avec l'appelant 
à l'aide d'arguments. Les procédures et les sous-programmes internes sont appelés par une 
instruction ; ils se terminent par une instruction de retour qui renvoie juste apres l'appel. 


Fonction Procédure S-P inteme 
Nécessité d'une déclaration Function Sub - 
Passage d'arguments ; arg entre () dans déclaration # Y - 
Possibilité de variables locales Y Y - 
Renvoie une valeur sous son nom et a un type Y - - 
Appel à l'intérieur d'une expression arithmétique Y - - 
Appel par instruction - Y d 
Arguments dans l'appel Entre ( ) Sans ( ) - 


SYNTAXE DE LA DECLARATION 
- (procédure): Sub «nom» ([<argument>] [,<argument> ..]) 
— (fonction): Function «nom» ([«argument»] [,<argument> .]) [As <type>] 
La fin de la routine est marquée par End Sub (respectivement End Function). Le mot-clé peut 
être précédé de Public, Private où Static expliqués au chapitre 7. Le nom suit les mêmes 
règles que pour les variables. On peut, bien que ce soit très déconseillé, redéfinir une routine 
prédéfinie sauf quelques noms réservés (comme Auto Open, Auto Close, etc.). 
Dans la déclaration de fonction, le type final (après les parenthèses) indiqué est celui de la valeur 
que la fonction calcule sous son nom ; si la clause As est absente, c'est que la fonction fournit un 
Variant. 
Ce qui suit est valable à la fois pour les procédures et les fonctions. Le couple de parenthèses doit 
être présent : il est laissé vide s'il n'y a aucun argument. 
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Les arguments s'ils sont présents, sont séparés par des virgules (pas des ; comme dans les feuilles 

Excel version française). Chaque argument est de la forme : 

[Optional] [<mode>]<nom_arg> [As <type>] [=<valeur par céfaut> 

«nom arg» ne peut être que sous la forme d'un nom de variable dans la déclaration ; il suit les 

règles habituelles des noms ; si l'argument figure sous forme de nom de variable aussi dans 

l'appel, ce n'est pas forcément le même nom. 

«mode» peut être ByRe£ (mode par défaut : par référence) ou ByVal (par valeur). 

— En mode ByRef, l'argument doit être sous forme de variable dans l'appel et c'est l'adresse qui 
est transmise donc si la routine modifie l'argument, la modification sera répercutée dans la 
routine appelante. Ce mode est plus économe en mémoire que ByVal. 

— En mode ByVal, c'est la valeur qui est transmise. L'argument peut être sous forme de 
n'importe quelle expression dans l'appel : l'expression est calculée et la valeur est transmise ; si 
C'est sous forme de variable, la valeur de cette variable est copiée pour étre transmise. Donc si 
la routine modifie l'argument, la modification n'est pas répercutée (sauf quelques cas exception- 
nels de procédures d'événements qui ont un traitement spécial de leur argument Cancel). 

Optional déclare l'argument comme facultatif : il n'est pas obligatoire de le fournir lors de 

l'appel. Si l'argument est facultatif, on peut, mais ce n'est pas forcé, fournir une valeur par défaut 

par =.... On peut tester que l'argument n'a pas été fourni par : 

If IsMissing(«nom arg») ... Les arguments optionnels doivent être les derniers de la liste, 

c'est-à-dire qu'un argument facultatif ne peut étre suivi d'un argument obligatoire. 

Enfin, la clause As «type» détermine le type de l'argument, variant si absente. 


Transmission des tableaux 
Lorsque l'argument est une variable tableau, il doit figurer sans dimension mais avec parenthèses 
()et As «type» dans la déclaration, et sans rien dans l'appel : 
Dim mat(10) As Integer 
sp mat ' appel 


Sub sp(m() As Integer) ' déclaration 


Le dernier argument peut être déclaré sous la forme: , ParamArray M() As Variant) 
Nous mettons la virgule (, ) et la parenthèse () ) pour montrer que c'est le dernier argument et, 


dans l'appel, on termine par un nombre quelconque de valeurs : la routine les récupère par M(x) 
avec x compris entre LBound (M) et UBound (M). 


SYNTAXE DE L'APPEL 
Normalement, l'appel d'une fonction se fait au sein d'une expression et l'ensemble des arguments 
est entouré de parenthèses ; la fonction renvoie un résultat sous son nom. L'instruction d'appel 
d'une procédure consiste simplement à citer le nom de la procédure suivi d'un espace puis des 
arguments sans les parenthèses. On peut aussi appeler une fonction/procédure avec ca11; dans 
ce cas, la fonction ne renvoie pas de valeur et la procédure doit avoir ses arguments entre (). 


Function F Sub S 
Un argument Plusieurs arg. Un argument Plusieurs arg. 
ByRef F(a) © F(a,b) Sa Sab 
Sans Call m 
ByVal forcé F((a)) F((a),(b)) S(a) e S (a),(b) 
ave Call ByRef Call F(a) Call F(a,b) Call S(a) Call S(a,b) 
ByVal forcé Call F((a)) Call F((a),(b)) Call S((a)) Call S((a),(b)) 
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Pour couronner le tout, une variable argument peut être individuellement entre parenthèses () : 
cela force le mode ByVal (non répercussion dans l'appelant d'une modification de l'argument). 
Noter que dans le tableau ci-dessus, 0 et @ semblent identiques, mais les parenthèses ( ) n'ont 
pas le même statut ; en ©, ce sont les ( ) autour de la série des arguments, en 6, ce sont les ( ) 
de forçage du mode ByVal pour un argument individuel. 

Si la fonction ou la procédure n'a pas d'argument, l'appel doit se faire sans ( ), alors qu'il faut un 
couple de parenthéses vides dans la déclaration. 


Syntaxe des arguments 

Les arguments sont séparés par des virgules. Ils peuvent étre présentés sous forme : 

— simple, donc une constante, une variable ou une expression. L'ordre des arguments doit être 
identique dans l'appel et dans la définition. Un argument ByRef dont on souhaite que les 
modifications soient répercutées doit &tre spécifié sous forme de variable. Un argument 
facultatif doit étre manifesté par sa virgule. 

- nominale, de la forme «nom arg» :- «valeur» ; ces locutions sont séparées par des 
virgules ; «nom arg» est le nom employé dans la déclaration ; <valeur> est une constante, 
une variable ou une expression ; l'ordre est libre car on cite les arguments ; on ne met rien 
pour un argument facultatif non fourni. Notez le signe spécial de l'affectation d'argument : :-. 

Sub Pers(Nom As String, Optional Age As Integer, 

Cptional Prénom As String) 

On pourrait avoir l'appel : Pers "David", , "Daniel" ou: 

Pers Nom :- "David", Prénom :- "Daniel" 

Dans la 1" forme, le dernier des arguments facultatifs doit être fourni car la liste ne peut se 

terminer par une virgule (,). 


SORTIE DE LA ROUTINE 
Le corps de la procédure ou fonction réside entre Sub et End Sub ou entre Function et End 
Function. Il n'y a pas d'imbrication possible : une procédure ou fonction ne peut pas être entre 
le Sub et le End Sub d'une autre (alors qu'un sous-programme interne peut, et méme doit être 
entre un Sub et un End Sub). 
Lorsque le flux d'exécution arrive au End Sub ou au End Function, la routine se termine et on 
revient juste après l'appel pour Sub, dans l'expression appelante avec la valeur renvoyée pour 
Function. 
Comme l'exécution peut se ramifier en plusieurs branches (par =f ou autres), les branches qui 
n'arrivent pas au End doivent se terminer par Exit Sub OUExit Function. Dans le cas d'une 
fonction toutes les branches doivent contenir une affectation de valeur au nom de la fonction sans 
arguments ni parenthèses (voir dans l'exemple ci-dessous). 


RÉCURSIVITÉ 


Une procédure ou une fonction peut s'appeler elle-même, c'est la récursivité. Bien sûr elle doit 
contenir une branche où elle ne s'appelle pas pour permettre l'arrêt du processus. La fonction 
Fact (..) calcule la factorielle de son argument : 
Function Fact(N As Integer) As Long 

If N <= 1 Then Fact = 1 Else Fact = N * Fact (N-1) 
End Function 
Tout ce que nous avons dit sur les procédures et les fonctions s'applique aux routines 
d'événements et aux méthodes d'objets : ce ne sont rien d'autre que des procédures et des 
fonctions. 
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ÉTIQUETTE 


Une instruction peut être repérée dans le programme par une étiquette sur la ligne qui la précède. 
L'étiquette est un simple nom (comme les noms de variables), mais terminé par deux-points (:). 
Des instructions GoSub et Go''o s'y réfèrent en citant l'étiquette sans les deux-points (:). 


SOUS-PROGRAMME INTERNE 
On appelle ainsi un bloc d'instructions entre une étiquette et l'instruction Return. Le bloc peut se 
ramifier en plusieurs branches : à ce moment, chacune doit se terminer par Return. L'ensemble 
est dans une procédure ou fonction, le plus souvent juste avant le Ena. L'étiquette doit être 
précédée de Exit Sub ou Exit Function pour que l'exécution normale ne tombe pas sur le 
sous-programme. 
En effet, celui-ci ne doit être appelé que par GoSub «étiquette sans :>. Return renvoie 
juste après le GoSub : si VBA arrive sur un Return alors qu'il n'y a pas de Gosu pendant, il y a 
un message d'erreur. 


COMPARAISON AVEC SUB 
En somme, le couple GoSub...Return fonctionne comme le couple appe1..Enc Sub d'une 
procédure. Les différences sont : 
— GoSub n'a jamais d'arguments ; si l'on veut que le sous-programme dépende de paramètres, il 
faut donner des valeurs à des variables juste avant le GoSub. 
— Le sous-programme ne forme pas une entité séparée, susceptible d'avoir des variables locales 
qu'il est seul à manipuler. 
— Le sous-programme étant dans une procédure, il ne peut être appelé que par elle. 
Il faut penser au Exit Sub empêchant de tomber inopinément sur le sous-programme. 


En définitive, ces sous-programmes sont plutót à éviter au profit des procédures séparées, sauf 
pour une séquence figée qu'on appelle un grand nombre de fois. 


EXEMPLE 

De nombreuses fois dans une procédure on demande un nombre : on doit vérifier que la chaine 
fournie est bien numérique, sinon on arréte la procédure : 

Sub Acquisition( 

Dim C As String 


GoSub Vérif 
N1 = CInt(C) 


GoSub Vérif 
N2 = CInt(C) 


Exit Sub 

Vérif: 
C = InputBox("Entrez un nombre ") 
If IsNumeric(C) Then Return 

End Sub 


C'est le triomphe de la programmation non structurée : on tombe sur le tna Sub par le sous- 
programme lorsque l'entrée est incorrecte et la sortie normale de la procédure est le Exit sun! 
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GOTO 


Puisqu'on est dans la programmation non structurée GoTo <étiquette sans :> fait 
sauter inconditionnellement à l'instruction qui suit <ét:quette:>. On a démontré que l'usage de 


cette instruction nuisait à la lisibilité et à la compréhension des programmes. Nous recommandons 
de l'éviter sauf cas trés exceptionnel. 


ON 


On «numéro» GoTo «liste d’étiquettes> 

On «numéro» GoSub «liste d'étiquettes» 

entraînent un GoTo ou un GoSub à l'étiquette de la liste correspondant au «numéro». C'est bien 
moins souple que Select. 


ON ERROR GOTO 


Soit des instructions susceptibles de produire des erreurs qu'on veut contróler. On les encadre : 
On Error GoTo «étiquette» 

«instructions à risque» 

On Error GoTo 0 


«étiquette» 
«traitement de 1’erreur> 


Leon Error GoTo 0 désactive la surveillance. Si les «inst zact ions» produisent l'erreur, on 
saute à l'étiquette», donc au traitement de l'erreur. 


RESUME 


Le traitement de l'erreur doit se terminer par un Resume qui fait revenir à l'instruction voulue, soit 


l'instruction qui a causé l'erreur (le traitement est censé avoir modifié des conditions de sorte que 
l'erreur ne se reproduise pas), soit à la suivante (on renonce à l'instruction erronée), soit ailleurs. 
Plus de détails et exemples dans le chapitre 2, Récupération des erreurs. 


ON <ÉVÉNEMENT> 


Les instructions qui préparent la réaction à certains événements (exemple : onxey, méthode de 
l'objet Application) sont traitées avec les objets correspondants. 
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Objets Données 
d'Excel 


Les contenus de feuilles de calcul 


Objets application, classeurs, feuilles 


Objets zones, sélection 
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LES CONTENUS DE FEUILLES DE CALCUL 


DÉSIGNATION 
On accède aux données d'une feuille de calcul Excel en agissant sur des propriétés de l'objet 
cellule ou de l'objet zone. La désignation de la cellule doit normalement être précédée de : 
[Application].[«désign. classeur»].[«désign. feuille>]. Application (c'est-à-dire 
Excel lui-même) n'est jamais citée dans ce cas (il y a des cas où sa présence est obligatoire). Si 
«désign. classeur> est absente, c'est qu'on sous-entend ActiveWorkbook (c'est-à-dire le 
classeur actif, souvent le dernier ouvert ; beaucoup de projets ne mettent en jeu qu'un seul 
classeur, dans ce cas, c'est celui-là). Si «àésign.feu:lle» est absente, c'est qu'on sous-entend 
ActiveSheet (c'est-à-dire la feuille active du classeur concerné). 


DÉSIGNATION DE CELLULE ABSOLUE 

La désignation de cellule unique peut avoir deux formes : 

— Cells(«ligne»,«colonne») par exemple Cells (5, 4) estla cellule DS: s'il n'y a pas de 
Range avant, la désignation s'entend à partir de la cellule A1 de la feuille. 

— «désign. zone réduite à une cellule», soit Range (" «coordonnées»"), soit 
Range(«désign. cellule»), par exemple Range ("D5") ou Range (Cells(5,4)) .Le 2° 
exemple n'est utile que si la ligne et/cu la colonne sont des variables ou des expressions, et il 
l'est surtout pour les zones multicellules. Là encore, puisque la désignation n'est pas précédée 


d'une désignation de zone, elle s'entend par rapport à la cellule A1 de la feuille. Les termes 
zone et plage sont synonymes. 


Zone multicellule 
— (1 argument) : Range ("<liste>") où «liste» contient des éléments séparés par des 
virgules, chaque élément étant soit une coordonnée comme B5, soit un intervalle comme 
B5 :C7, définit la zone union des zones définies par les éléments ; un élément intervalle définit 
le rectangle dont l'intervalle représente la diagonale. Exemple : Range ("A5, B8,C4:D7") 
définit l'ensemble des cellules A5, B8, C4, D4, C5, D5, C6, D6, C7 et D7. Les zones multi- 
cellules ne sont pas forcément d'un seul tenant. 
— (2 arguments) : dans ce cas, la zone sera d'un seul tenant ; 
— (cellules) Range («cellule 1»,«cellule 2>) définit le rectangle dont les deux 
cellules forment la diagonale. Range (Ce11s(1,1),Cel1s(4,3]) et 
Range (Range ("Al") , Range ("C4") ) etRange("A1:C4") sont équivalentes, 
Range ("C:C") est la colonne C. 
— (listes) Range(<liste 1>,<liste 2») où les listes sont comme ci-dessus, définit le 
rectangle minimum contenant toutes les cellules des listes. 
Range("A5:B7", "C2:D3") est équivalente à Range ("A2 :D7") . 
— Une désignation entre guillemets (") peut spécifier une feuille, séparée du reste par un ! 
comme dans les expressions Excel. Une telle désignation ne peut pas étre préfixée. 
Range ("Feuil2!A1") est équivalent à Worksheets ("Feuil2").Range("Al"). 
Les chaînes entre guillemets (") peuvent être construites par concaténation : 
Range (NomFeuille+"!A"+CStr(Ligne)) . 


DESIGNATION RELATIVE 


Si la désignation est précédée d'une désignation de zone (en principe multicellule), la définition 
s'entend par rapport au coin supérieur gauche de la première zone : 


Range ("C4:D7").Cells (1,1) est la cellule C4, Range ("C4:D7") .Range ("A1") aussi, ce 
qui est encore plus trompeur ! Range ("C4:D7") . Range ("B2:F10") est le rectangle D5:H13 . 


LES CONTENUS DE FEUILLES DE CALCUL 


DECALAGE 
La désignation peut être précédée d'une indication de décalage de la forme : 
<cellule de départ>.Offset (<nh-lignes>,<nb-colonnes>) 
où «cellule de départ» est souvent Act iveCell1, la cellule active. 
Les nombres de lignes et de colonnes de décalage peuvent être négatifs et l'un d'entre eux peut 
être zéro. Si l'indication de décalage termine la désignation, la désignation représente une seule 
cellule. ActiveCe:1.0ffset(0,-2) est la cellule même ligne, deux cases à gauche de la cellule 
active. ActiveCell.0ffset (3,4) .Range ("A1:B4") est le rectangle 4 x 2 dont le coin 
supérieur gauche est 3 lignes plus bas, 4 colonnes à droite de la cellule active. Si celle-ci était D5, 
ce serait le rectangle H8:111. 


PROPRIÉTÉS 


Value 
La propriété la plus importante pour agir sur le contenu d'une cellule est Value. Il y a aussi 
Value? qui n'admet pas les données monétaires et dates ; nous n'en reparlerons plus. Pour 
utiliser le contenu d'une cellule, on fait figurer <cellule>.Value dans une expression. Pour 
modifier le contenu d'une cellule, on écrit «ce11u1e».Value-.. Exemple : 
Cells(1,1).Value = Range("B7").Value 2 * ActiveCell.Value 
L'affectation de valeur peut porter sur une zone multicellule : la méme valeur est mise dans 
chaque cellule de la zone mais la lecture (utilisation) ne peut porter que sur une seule cellule. 


Formula 
Formula est la chaîne de caractères représentant la formule présente ou à mettre dans la cellule : 
elle commence par un signe = et doit avoir les noms de fonctions en anglais. FormulaLocal a 
les noms de fonctions dans la langue du pays (définie dans les paramètres internationaux). 
FormulaR1C1 exprime les coordonnées en lignes et colonnes avec R (row) devant le numéro de 
ligne car on est en anglais. FormulaR1C1Local donne L en français. Les coordonnées sont en 
absolu cu en relatif, selon la formule. Exemple : 
Avec Range ("A4") .Formula = "-sum(B2:B5)" 
MsgBox Range ("A4") .Formulalocal donne =SOMME(B2:B5) 
MsgBox Range("A4").FormulaR1C1 donne =SUM(R[-2]C[1]:R[1]C[1]) 
MsgBox Range ("A4") .FormulaR1ClLocal donne =SOMME(L(-2)C(1):L(1)C(1)) 
Une formule est limitée à 1024 caractères. 


FORMATS ET DIVERS 
NumberFormat est la chaîne de format (anglaise) qui régit la cellule ; NumberFormatLocal 
l'exprime dans la langue du pays. Ex. : 
Range ("A4") .NumberFormat = "dd/mm/yyyy" impose l'année en 4 chiffres (la donnée doit 
être une date). MsgBox Range ("A4") .NumberFormatLocal donnera jj/mm/aaaa. 
RowHeight est la hauteur de ligne, ColumnWidth est la largeur de colonne : 
ActiveCell.RowHeight = 15 Range (C:C) -ColumnWicth = 20. 
WrapText est True si l’on veut que le texte passe à la ligne dans la cellule. 
Column et Row sont respectivement le numéro de colonne et de ligne de la cellule. Address et 


AddressLocal donnent l'adresse de la cellule (ex. $A$1). Avec des arguments, on peut obtenir 
des coordonnées relatives, ou la forme R..C.. (L.. avec AddressLocal), voyez l'aide. 
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METHODES 
Pour une cellule unique, Activate et Select sont équivalentes : elles activent la cellule. 


|Range ("A4") Select 

ClearContents supprime le contenu de la cellule, mais garde le formatage ; ClearFormats 
supprime le formatage, mais garde la valeur ou la formule ; Clear supprime les deux. Ces 
méthodes s'appliquent aussi à des plages multicellules : 

Range ("A4").ClearContents pourrait s'écrire aussi Range ("A4") .Value=Empty 

Copy et Cut sont le copier ou couper de la plage. Paste est le coller. Mais comme il s'applique à 
une feuille, il faut sélectionner la cellule de destination d'abord. Exemple : 

Range ("C7:F10").Copy 

Range ("A20") .Select 

ActiveSheet. Paste 

PasteSpecial (collage spécial) s'applique à une zone ; nous vous renvoyons à l'aide associée à 
l'Explorateur d'objets. 


ÉVÉNEMENTS 


Nous ne traitons ici que l'événement Worksheet Change. Il s'applique à vrai dire à une feuille et 
la routine de traitement, de nom Worksheet_Change doit être implantée dans le module de la 
feuille concernée dans Microsoft Excel Objects. L'événement a lieu dés que l'utilisateur change la 
valeur contenue dans une cellule, c'est pourquoi nous le traitons ici. 

L'en-téte de la procédure est : 

Private Sub Worksheet Change(3yVal Target As Range) 


où target désigne la cellule qui a subi le changement. Donc la routine doit tester l'adresse de 
Target pour voir si c'est la (ou une des) cellule(s) oü on veut contróler le changement. Voici un 
exemple (fictif) qui vérifie qu'en J6, on met bien un nombre et en J8, on met bien une date : 


Private Sub Worksheer Change(ByVal Target As Range) 
Select Case Target.Address 
Case "SJS6" 
If Not IsNumeric(Target.Value) Then MsgBox "Il faut un nombre" 
Target.Select 
Case "$J$8" 
If Not IsDate(Target.Value) Then MsgBox "Il faut une date" 
Target.Select 
End Select 
End Sub 


On voit comment on peut canaliser les actions de l'utilisateur ; en fait, ceci est aussi possible par 
de pures commandes d'Excel (Données — Validation). Mais ici, VBA nous permet de faire mieux : 
grâce aux instructions Target .Select, on revient sur la cellule erronée après le message 
d'erreur et on n'en démordra pas tant que l'utilisateur n'aura pas fourni une donnée correcte. 
Notons que le programme ne pourrait pas corriger la donnée lui-même : en effet une routine 
d'événement ne doit en aucun cas contenir d'instruction qui redéclenche le méme événement. 
D'autres propriétés, méthodes et événements s'appliquent plutót aux zones multicellules : elles 
sont traitées dans la 3€ section. 


versions 2019 et Office 365 


OBJETS APPLICATION, CLASSEURS, FEUILLES 


APPLICATION 
Application est sous-entendu en tête de la plupart des désignations et requis avec quelque- 
unes. 

Propriétés 
Application.Calculation = xlCalculationManual inhibe le recalcul automatique ce 
qui fait gagner du temps avant une séquence où on entre beaucoup de données dans une 
feuille. Penser à remettre à x1calculationAutomatic après la séquence. 
Application.Caption est le titre qui apparaît dans la barre de titre. On peut être amené à 
imposer une valeur pour individualiser le projet. 
Application.Cursor reçoit une valeur lorsque l'on veut modifier la forme du curseur souris. Il 
faut penser à redonner la valeur x1De fault avant de quitter le projet. À part celle-ci, les valeurs 
possibles sont x113cam, xlNorthwestArrow et xlWait (le sablier). 
Application.DisplayAlerts est mis à Fa: se lorsqu'on veut éviter certains messages 
comme « Voulez-vous vraiment supprimer cette feuille » ou « Voulez-vous écraser le fichier ».... II 
faut penser à le remettre à True. Exemple : 
Application.DisplayAlerts = False 
Workbocks ("Compta.xlsx").Close 
Application.DisplayAlerts = True 
Application.OperatingSystem donne le nom du système d'exploitation (Windows (32-bit) 
NT .00 : Windows 10). Application.Version donne la version d'Excel utilisée (16.0 : 2016). 
Application. Path donne le chemin d'accès du logiciel Excel, a ne pas confondre avec le 
chemin d'accès du classeur où se trouve le programme, qui est ThisWorkbook. Path, plus utile. 
Ces propriétés sont évidemment en lecture seule. 
Application.PathSeparator donne le caractère séparateur utilisé dans les chemins d'accès 
(\ sur PC sous Windows, : sur MacIntosh). Voir usage dans la section sur les classeurs. 
Application.ScreenUpdating est mis à False pour inhiber la mise à jour de l'écran. Il est 
utile de le faire avant des instructions qui agissent beaucoup sur l'écran : cela améliore les 
performances, mais il faut penser à le remettre à True. 
Application.WorksheetFunction est un objet dont les membres sont les fonctions de feuille 
de calcul Excel. C'est le moyen de les utiliser dans un programme VBA (voir chapitre 7). 


Méthodes 
Les méthodes OnKey, OnTime, Run, SendKeys et Wait sont traitées au chapitre 8. Les 
différences entre InputBox et Applical:on.InputBox sont au chapitre 6. 
Application.Quit fait quitter Excel ; à utiliser avec prudence. 


Événements 
Les événements tels que Newiorkbook, SheetCalculate, WindowActivate, 
WorkbookActivate, WorkbookNewSheet concernent plutôt les classeurs et les feuilles ; ils 
sont donc traités ci-après. 


CLASSEURS 
On agit sur les classeurs soit par la collection Workbooks qui regroupe tous les classeurs ouverts 
(VBA n'a aucun moyen d'agir sur un classeur non ouvert — sauf un cas trés particulier décrit dans 
les exemples du chapitre 9), soit en désignant un élément de la collection par Workbooks («n») 
OU Workbooks ("«nom»"). 
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«n» est un numéro de 1 jusqu'à Workbooks.Count ; «nom» est le nom de fichier du classeur 
comme Bilan.x/sx. Ceci explique qu'on ne puisse ouvrir deux classeurs de même nom, mais 
répertoires différents. 


Deux autres désignations usuelles sont Act iveWorkbook (le classeur actif) et t'hi sWorkbook 
(le classeur qui contient le programme en cours d'exécution). Il ne faut pas les confondre : ce 
n'est pas toujours le même classeur notamment si on obéit à la règle de séparation programme — 
classeurs de données. On peut aussi introduire une variable (de type Workbook) pour désigner un 
classeur par exemple : 
Dim Wk As Workbook 
Set Wk = ActiveWorkbook 
Enfin, dans le module associé au classeur, Me désigne le classeur lui-même. C'est le cas dans tout 
module attaché à un objet : Me désigne cet objet. Dans un module de feuille, Me désignera la 
feuille, dans un module de BDi, il désignera le formulaire. 

Propriétés 
La seule propriété de la collection Workbooks qui nous intéresse est Count, nombre de classeurs 
ouverts ; elle est en lecture seule : pour la changer, il faut ouvrir ou fermer des classeurs. 
Exemple : pour savoir sil y a un classeur ouvert en plus du classeur programme : 
If Workbooks.Count > 1 Then... 
Parmi les propriétés intéressantes d'un classeur individuel : Act iveChart (le graphique actif), 
ActiveSheet (la feuille active), Charts (la collection des graphiques), Fu11Name (le nom 
complet c'est-à-dire précédé du chemin d'accès), HasPasswor a (booléen vrai si le classeur est 
protégé par un mot de passe), Name (le nom de fichier du classeur terminé par .xlsx), Names (la 
collection de noms de cellules ou zones définis dans le classeur), Passwora (le mot de passe 
général), Path (le chemin d'accès : Ful1Name n'est autre que Path+Application. 
PatnSeparator+Name), Saved (booléen faux s'il y a des modifications non sauvegardées), 
Sheets (la collection des feuilles — réunion de Charts et Worksheets), Worksheets (la 
collection des feuilles de calcul), et WritePassword (mot de passe en écriture). 


Names : On crée un nom, par exemple, par : 


ActiveWorkbook.Names.Add Name:-"'"otal", Refersl'o:= "-Bilan!SB$10" et 


ActiveWorkbook.Names(1).Name sera Total, ActiveWorkbook.Names (1) .RefersTo sera 


=Bilan!$B$10 . 

Password : On les crée par affectation, exemple : ActiveWorkbook.Password-"secret", 
mais en lecture, on obtient des *. 

Saved : Curieusement, on peut l'écrire ; Wk.Saved=True revient à autoriser la fermeture du 
classeur sans se préoccuper de sauvegarder les modifications. 


Méthodes 


Les méthodes qui s'appliquent à la collection Workbooks sont Add, Close et Open. 


Workbooks.Close ferme tous les classeurs ouverts, y compris celui de votre programme ; il est 
peut-être plus indiqué de fermer chaque classeur voulu individuellement. 


Workbooks.Add crée un classeur (ajoute un élément à la collection : cela correspond à la 
commande FICHIER — Nouveau). Il devient le classeur actif et il faudra penser à le sauvegarder 
avec la méthode Saveas. L'appel a un argument facultatif. S'il est absent, on crée un classeur 
normal à plusieurs feuilles. S'il est sous forme de constante, les deux valeurs intéressantes sont 
x1WBATChart (crée un classeur avec une seule feuille graphique) et x WBATWorksheet (une 
feuille de calcul). 
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Enfin, l'argument peut être une chaine spécifiant un fichier Excel (.x/sxou .x/tx) et on crée un 
classeur sur le modèle correspondant. La gestion des modèles étant délicate avec Excel, elle le 
devient plus avec les nouvelles versions, nous conseillons plutôt d'utiliser des classeurs prototypes 
(.x/sx) : on ouvre le classeur prototype (avec Gpeh) et on le sauvegarde sous le nom définitif. 
Workbocks.Cpen ouvre le classeur spécifié. L'argument Filename (disque, répertoire et nom du 
fichier) est obligatoire. S'il y a lieu, on peut spécifier les mots de passe, Password et 
WriteResPassword : 

Workbooks.Cpen Filename:- "C:\Compta\Bilan.xlsx", Password:= "secret" 

On peut aussi appeler Open sous forme d'une fonction : elle renvoie l'objet classeur concerné qu'il 
est alors facile de désigner si Wk est un classeur (Dim Wk As Workbook). 


Set Wk = Workbooks.Open (Filename := "C:\Compta\Bilan.xlsx") est équivalent à 
la séquence : 


Workbocks.Open Filename 
Set Wk = ActiveWorkbook 


"C:\Conpta\Bilan.xlsx" 


Méthodes sur classeurs individuels 
Dans ce qui suit, la variable wk désigne un objet classeur, par exemple ActiveWorkbook. 


Wk.Close ferme le classeur. On a l'argument facultatif saveCnanges : sil est omis une BDi 
demande à l'utilisateur s'il veut sauvegarder les modifications ; s'il vaut True, on fait une 
sauvegarde d'office ; s'il vaut False, on ignore les modifications. 

Wk.FollowHyperlink se branche à un document HTML. Les arguments utiles sont Address 
(l'adresse du document, soit nt t p :.. pour aller sur Internet, soit une désignation de fichier .htm 
local) et NewWincow qui doit être spécifié True pour que le document s'ouvre dans une nouvelle 
fenétre. Ex. si vous fournissez un fichier d'aide HTML, la routine de clic du bouton d'appel doit 
contenir : 

ThisWorkbook ThisWorkbook.Path & 
Application.PathSeparator & "aide.htm", NewWindow:=True i 


ollowlyperlink Addres 


Wk.Printout imprime tout le classeur. On l'utilise plutôt feuille par feuille. Pour voir les 
arguments à spécifier, faites un enregistrement de macro. 

Wk.Protect et Wk.Unprotect respectivement protègent et déprotègent tout le classeur. On 
procède plutôt feuille par feuille. 

Wk.Save sauvegarde le classeur ; il faut qu'il ait déjà reçu un nom par SaveAs. 

Wk.SaveAs sauvegarde le classeur sous le nom spécifié par Filerame. Les autres arguments 
sont facultatifs ; Password et Wr iteResPassword permettent d'imposer des mots de passe ; 
FileFormat permet de spécifier le format de fichier ; les valeurs les plus utiles sont 
xlWorkbookNormal (.xlsx normal — l'argument est inutile dans ce cas), x1Exce19735 (.xls 


compatible avec une version précédente) et x 1i remp1ate (modèle .xitx). 
is Filename :- Chemin + Application.PathSeparator 


Clients.xl 


Wk.SaveCopyAs sauvegarde le classeur sous le nom spécifié avec les mêmes arguments que 
Saveas, mais le classeur en mémoire garde son ancien nom, il y a simplement copie sur disque 
avec le nouveau nom ; avec SaveAs, le classeur en mémoire prend le nouveau nom ; il y aura 
peut-étre un exemplaire sur disque avec l'ancien nom, mais il ne sera pas à jour. 


Wk.Run2utoMacros est induse pour des raisons de compatibilité avec les versions précédentes. 
Pour tout projet moderne, on utilisera plutôt les événements open, Close, Activate et 
Deactivate. 
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Événements 
Les routines de réponse à ces événements sont dans le module de code associé à 
ThisWorkbook. Leur nom est Norkbock «nom de l'événement». Pour que l'événement soit 
pris en compte, il faut inclure la routine correspondante, sinon, c'est le traitement système 
standard (souvent aucun) qui a lieu. 


Pour implanter une telle routine, vous affichez la fenêtre de module de ThisWorkbook, 
Workbook dans la liste déroulante de gauche, puis vous cliquez sur la routine voulue dans la liste 
déroulante de droite. Le mode opératoire sera le même pour les événements de feuille. 


Les événements AcLivate et WindowActivate sont déclenchés successivement quand on 
active le classeur, Deactivate quand on le désactive. Attention, ils ne se produisent que 
lorsqu'on passe d'un classeur Excel à un autre, pas lorsqu'on arrive au classeur en venant de 
Word, par exemple. WindowActivate peut être l'occasion d'agir d'office sur la fenêtre : 
Private Sub Workbook WindowActivate (ByVal Wn As Window) 

Wn.WindowState = xlMaximized 
End Sub 
met le classeur où elle est implantée en plein écran dès le départ. 
Les événements BeforeClose, BeforePrint et BeforeSave ont lieu quand on s'apprête à 
fermer le classeur imprimer ou sauvegarder. Ils ont un argument Cancel, False par défaut. Si 
votre routine le met à True alors l'opération (fermeture, impression ou sauvegarde) n'aura pas 
lieu. BeforePrint et BeforeSave donnent l'occasion de faire un recalcul avant l'impression ou 
la sauvegarde : 
Private Sub Workbook BeforePrint(Cancel As Boolean) 

For Each sh in Worksheets 

sh.Calculate 

Next 
End Sub 
Private Sub Workbook BeforeSave (ByVal SaveAsUI As Boolean, 

Cancel As Boolean) 

If ActiveWorkbook.Saved Then 
MsgBox "Inutile de sauver" 
Cancel - True 
End If 

End Sub 


Si SaveAsUI estfourni True, la BDi permettant de choisir le nom de fichier est affichée. 
BeforeClose donne l'occasion d'éviter de perdre les demiéres modifications : 


Private Sub Workbcok BeforeClose(Cancel as Boolean) 
If Not Me.Saved Then Me.Save 
End Sub 


NewSheet a lieu lorsqu'on insere une nouvelle feuille dans le classeur. La routine exemple qui suit 
place cette nouvelle feuille après toutes les autres : 


Private Sub Workbook NewSheet(ByVal Sh As Object) 
Sh.Move After:-Sheets (Sheets.Count 
End Sub 
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Open est l'événement le plus important : il a lieu dès qu'on ouvre le classeur. Introduire une 
routine pour cet événement permet de démarrer automatiquement votre projet sans que 
l'utilisateur ait à faire quoi que ce soit. La routine pourra contenir tout ce qui doit être effectué à 
chaque fois qu'on ouvre le classeur, notamment des initialisations. Plus de détails sur le démarrage 
automatique au chapitre 10. 

Les événements : SheetActivate, SheetBeforeDoubleClick, SheetBeforeRightClick, 
SheetCalculate, SheetChange, SheetDeactivate et ShcetSelectionChange 
concernent des feuilles de calcul. On utilise donc plutót leur version à l'échelle de la feuille, 
implantée dans le module associé à la feuille concernée ; c'est l'objet de la section suivante. 


FEUILLES 
Comme pour les classeurs, il faut distinguer la collection et la feuille individuelle. Ici, nous avons 
trois collections : Worksheets (feuilles de calcul), Charts (graphiques) et Sheets (réunion des 
deux). Une feuille individuelle est désignée par Worksheets ("<nom>") où «nom» est le nom 
qui figure dans l'onglet ou Worksheets («numéro»). Ces désignations peuvent être précédées 
de la désignation de classeur ou sous-entendre le classeur actif. On peut utiliser une variable de 
type Worksheet, ce que nous supposerons dans les exemples : 
Dim Sh As Worksheet 
Set Sh = Wk.Worksheets ("Feuill") 
(Avec une telle affectation, Sh implique le classeur ; donc la désignation wx . Sn est erronée, Sh 
suffit.) 


Propriétés 
Worksheets. Count est le nombre de feuilles. visible, s'emploie plutôt feuille par feuille. 
Les propriétés Columns, Comments et Rows s'appliquent surtout à une zone Range, nous les 
voyons à la section suivante. Cells et Range permettent de désigner une zone ou une cellule de 


la feuille ; elles forment des sous-objets de feuille ou méme d'une autre plage. Elles ont été vues 
en début de chapitre. 


Sh.EnableCalculation = False interdit le recalcul méme manuel de la feuille. 
Sh.Calculate sera sans effet, alors qu'il agirait aprés Application.Calculation = 
xlCalculationManual. Donc pensez à le remettre à True. 


Sh.Index est le numéro de la feuille dans la collection, donc le numéro à utiliser dans 
Worksheets (..). Sn.Name estle nom d'onglet à utiliser dans Worksheets (".."). Sila 5€ 
feuille est Bilan, Worksheets ("Bilan").Index donne 5 et Worsheets (5) .Name donne la 
chaîne de caractères "Bilan". Pour renommer la feuille, affectez une valeur (chaine) à Sn . Name. 


Sh.Names est la collection des noms (de cellule ou plage) définis dans la feuille. C'est un sous- 
ensemble de la collection Names du classeur, vue ci-dessus. 


Sh.ProtectContents : booléen vrai si le contenu des cellules de la feuille est protégé. 


Sh.StandardHeight et Sh. ndardWidth sont respectivement la hauteur et la largeur par 
défaut des cellules de la feuille (en points). Elles sont en lecture seule. Exemple : pour doubler la 
hauteur de la ligne 4 : Sh. Rows (4) .RowHeight-2*Sh.StandardHeight. 


Sh.UsedRange est la zone rectangulaire qui englobe toutes les cellules utilisées. 


Sh.Visible : booléen vrai si la feuille est visible. 
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Méthodes 
Add s'applique à la collection Sheets OU Worksheets et insère une feuille. Les arguments (tous 
facultatifs) sont Before/After (ils s'excluent) qui spécifient la feuille avant/après laquelle on 
insère (défaut : devant la feuille active), Count qui définit le nombre de feuilles insérées (défaut 
1) et Type qui fixe le type : nous ne considérons que x1Worksneet (défaut : feuille de calcul) et 
xlCnart (graphique). 


FillAcrossShects s'applique à un ensemble de feuilles : elle copie une plage au même endroit 
dans toutes ces feuilles. Exemple : copier l'en-tête de colonnes dans plusieurs feuilles : 

x = Array("Feuill", "Feuil2", "Feuil3") 

Worksheets (x) .FillAcrossSheets Worksheets ("Fenill") .Range ("A1l:H1") 

Copy, Delete, Move, Printout s'appliquent à toutes les feuilles, ou à un groupe, mais le plus 
souvent à une feuille individuelle. 


Sh.Activate et Sh. Select (pas d'arguments) sont équivalentes appliquées à une feuille 
individuelle (elles ne peuvent s'appliquer à un groupe de feuilles). Elles activent la feuille (comme 
le clic sur l'onglet). Elles ne peuvent agir que dans le classeur actif. Certaines opérations sur une 
zone (tri, bordures, etc.) ne peuvent se faire que si la feuille est activée. 


£h.Calculate effectue un recalcul de la feuille. 
Sh.Copy copie la feuille dans le presse-papiers. 


Sh.Delete supprime la feuille. Si l'on a une série de feuilles à supprimer dont on est certain, on 
peut éviter d'avoir un message d'avertissement à chaque feuille en mettant a False 
Application.DisplayAlerts. Pensez à le remettre à True aprés la séquence. 


Sh . Move déplace la feuille. Les arguments 3efore ou After agissent comme pour Adc. Si 
aucun des deux n'est fourni, VBA crée un nouveau classeur oü il implante la feuille. 


Sh.Paste colle le contenu du presse-papiers dans la feuille. Nous vous renvoyons à l'aide pour 
l'argument facultatif Link. L'argument facultatif Destination spécifie la plage d'arrivée ; s'il est 
absent, la plage d'arrivée doit étre sélectionnée au préalable. La séquence : 

Range ("A4") .Select 

ActiveSheet. Paste 


équivaut à ActiveSheet.Paste Destination :- ActiveSheet.Range ("A4") 


Sh, PasteSpecial effectue un collage spécial. La plage de destination doit être sélectionnée au 
préalable. Nous renvoyons à l'Aide pour les arguments tous facultatifs. La méthode est à utiliser 
plutót pour une zone, et là aussi, nous renvoyons à l'Aide à partir de l'Explorateur d'objets. 


Sh.Prinrout fait imprimer la feuille. Tous les arguments sont facultatifs. Les plus importants 
sont From et To (n? de page de départ et de fin, toutes les pages si absents), Cop: es (nombre 
d'exemplaires, 1 par défaut), collate (True pour assembler les exemplaires), Print ToFile 
(True pour imprimer dans un fichier ; dans ce cas, fournir le nom par l'argument 
PrToFileName). EX: ActiveSneet.PrintOut. 


Sh.Protect et Sh. Unprctect protègent et déprotègent la feuille. Leur seul argument 
intéressant est Password (facultatif, mais doit être foumi avec Unprotect s'il l'a été avec 
Protect) qui impose/fournit un mot de passe. 
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Événements 
Les routines propres à ces événements ont pour nom Worksheet «nom événement» et elles 
doivent être implantées dans le module de la feuille correspondante. Pour cela : 
= Double-clic sur la feuille dans l'Explorateur de projets : la fenêtre du module apparait. 
m Choisir Worksheet dans la liste déroulante de gauche. 
m Choisir l'événement dans la liste déroulante de droite. 


Activate a lieu lorsqu'on active/sélectionne la feuille. Deactivate lorsqu'on la quitte. 


BeforeDoubleClick et BeforeRigntClick ont lieu au moment d'un double-clic et clic droit. 
Arguments : 7arget est la cellule sur laquelle le clic a lieu ; si Cancel est mis à Truc par la 
routine, l'action système sera inhibée. Exemple : on empêche l'apparition du menu contextuel sur 
clic droit s'il est dans la colonne A de la feuille : 
Private Sub Worksheet BeforeRightClick(ByVal Target As Range, 
Cancel As Boolean 

If Target.Column = 1 Then Cancel = True 
End Sub 


Calculate a lieu lorsqu'un recalcul automatique ou manuel va se produire. 
Les événements les plus utilisés sont Change (traité en 1** section) et 3e: ectionChange quia 


lieu dés qu'on change la sélection. Exemple : dés qu'on sélectionne un nom de classeur (avec 
disque et répertoire) dans une cellule, on l'ouvre : 


Private Sub Worksheet SelectionChange(ByVal Target As Range) 
Dim t As String 


t = Target.Value 
If Right(t, 5) - ".xlsx" Then Workbocks.Cpen t 
End Sub 
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Nous traitons ici plutôt les éléments qui s'appliquent à des zones ou plages multicellules. Un 
certain nombre de choses concernant les cellules individuelles ont été vues en début de chapitre. 
Une cellule et une plage ont le même type Range. Pour parcourir toutes les cellules d'une zone, 
on écrit For Each c In Range(...) sachant qu'on a déclaré Dim c As Range. 

Si R est une zone, sa collection fondamentale est R .Ce11s, ensemble de ses cellules. R. Count 
est la même chose que R.Cells.Count (nombre de cellules). En numérotation unique, les 
cellules d'une plage sont numérotées ligne par ligne. 

Range ("A1:C4").Count vaut 12 ; Range ("A1:C4") .Cells (4) .Address est $A$2. 
ActiveCell désigne la cellule active. Dans la suite, R désigne une zone multicellule ou non, M 
une zone obligatoirement multicellule, C désigne une zone monocellule. Ainsi, on peut avoir 
R.Value-..., mais x-C. Value. Nous disons qu'une zone est homogène par rapport à une 
propriété lorsque cette propriété a la même valeur dans toutes ses cellules. 


L'OBJET SÉLECTION 
L'objet Selection est une Range qui représente la plage multi ou monocellule actuellement 
sélectionnée soit par l'utilisateur, soit par un appel à la méthode Select. Tout ce qu'on peut faire 
avec une plage, on peut le faire avec Selection. Exemple : Selection.Clear 
Selection.Value=5 (met 5 dans chaque cellule de la sélection). 


PROPRIETES 

R.Address est l'adresse de la zone : Range ("A4:B7"). Address est $A$4:$B$7. 
R.Areas est la collection des zones connexes qui font partie de R. 
R.Borders est la collection des bordures. Une bordure se désigne par R. Borders (<s>) ol <s> 
peut être : x1DiagonalDown, xlDiagonalUp, xlEdgeBottom, xlEdgeLeft, xlEdgeRight, 
xlEdgeTop, xlInsideHorizontal OU xlInsideVertical (les noms parlent d'eux-mêmes si 
vous connaissez l'anglais). On utilise peu les Diagonal, il faut utiliser les Inside si on veut le 
quadrillage complet. Pour créer un segment, il faut donner des valeurs à ses propriétés : Color 
OU Colorindex, LineStyle (forme du trait: x1Continuous, xlDash, xlDashDot, 
xlDashDotDot xlDot, xlDouble, xlSlantDashDot OU xlLineStyleNone - cette dernière 
efface la bordure) et Weight (épaisseur : xlHairline, xlThin, xlMedium ou xlThick). 
Pour installer un trait rouge double sous la sélection, on écrira : 
With Selection.Borders (xlEdgeBottom) 

.LineStyle-xlDouble 

.Weigat-xlThin 

.Color-RGB(255,0,0) 
End With 
R.Columns et R. Rows sont les collections des colonnes et des lignes de la zone. 


Paradoxalement, Column et Row peuvent être appliquées à une plage multicellule : on obtient le 
numéro de colonne/ligne de la cellule du coin supérieur gauche de la zone. 

R.ColumnWidth et R.RowHeight appliquées à une zone multicellule donnent Nu11 si la zone 
n'est pas homogène. Si la zone est homogène ou monocellule, on obtient la largeur de 
colonne/hauteur de ligne. 

R.Height et R.Width sont la hauteur et la largeur totales de la zone. 

R.CurrentRegion est la zone rectangulaire minimale limitée par des cellules vides contenant R. 
Exemple : essayez ActiveCell.CurrentRegion.Select. 

C.Dependants donne l'ensemble des cellules qui dépendent de la cellule C. 
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C.End («dir») où C est non vide et «ài x» peut être x1Down, xiToRight, xlToLeft OU 

x1up définit la dernière cellule occupée à partir de C dans la direction indiquée. 

R.EntireColumn et R.EntireRow sont les colonnes/lignes entières contenant la zone. 

R.Font (en lecture C. Font de préférence, ou il faut que la zone soit homogène) permet de 

déterminer/consulter la police de caractères de la zone. Les sous-objets sont : 

- Background (le fond) ; les valeurs possibles parlent d'elles-mémes : 
xlBackgroundAutomaric, xlBackgrouncOpaque, xlBackgroundTransparent 

— Bold :True pour mettre en gras ; Italic, Strikethrough (biffé), Subscript (indice), Superscript 
(exposant) et Underline (souligné) fonctionnent de la même façon. 

— Color et ColorIndex : Voir page suivante Gestion des couleurs. 

— FontStyle reçoit une chaîne formée des mots Bold, etc. pour donner le même effet, 
exemple : ActiveCell.Font.Fontstyle = "Bold Italic". 

— Name est le nom de la police Arial. 

— Size est sa taille en points. Exemple: ActiveCell.Font.Size = 20. 

R. Interior (en lecture C. Interior ou zone homogène) définit l'intérieur des cellules par la 

couleur de fond (Color où ColorIndex) et un motif Pattern. Exemple : fond gris clair : 

Range ("A4:B7") .Interior.Color = RGB(200,200,200) . Pour Pattern, voyez xlPattem 

dans l'Explorateur d'objets. 

R.HorizontalAliunment fixe l'alignement horizontal (x1Le£t, x1Rignt, xlCenLer, etc.). 

R.VerticalAlignment fixe l'alignement vertical (x1VAlignCenter, etc.). 


. Locked est vrai si la cellule est verrouillée. 


a 


R.Name est le nom attribué à la plage. En écriture & . Name-".." attribue bien le nom, mais en 
lecture, on obtient l'adresse. Pour avoir le nom il faut passer par la collection Names du classeur : 
ActiveWorkbook.Names (Range ("Al") .Name.Incex) .Name donne le nom, alors que 
Range ("Al") .Name donne Feuill !$A$1 . 


R.ShrinkToFit mis à Truc ajuste les textes des cellules à la largeur de cellule disponible. 


MÉTHODES 


Activate et Select : appliquées à une cellule unique, ces deux méthodes sont équivalentes. 
Pour une zone multicellule, ce n'est pas le cas : Activate ne peut s'appliquer qu'à une cellule 
seule. En fait, on peut sélectionner une plage, puis activer une cellule de cette plage (le plus 
souvent celle au coin supérieur gauche) : 

Range ("A4:B7") .Select 

Range ("A4") .Activate 

On ne peut sélectionner une plage que dans la feuille active du classeur actif, donc il faut les 
activer au préalable. 

AdvancedFilter établit un filtre élaboré dans une zone. Procédez par enregistrement de macro 
pour voir les arguments. 

R.AutoFill Destination=R’ fait une recopie incrémentée de la plage R dans la plage R’ (qui 
doit contenir R à son bord gauche ou supérieur). 

R.AuroFilrer établit un filtre automatique sur la plage. 

M.AutoFit ajuste aux contenus les hauteurs de ligne si M est une plage de lignes, les largeurs de 
colonnes si M est une plage de colonnes. 

Exemple : Columns ("A: I").Autofit. 
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R.BorderArounc établit une bordure autour de la plage. 

R.Calculate lance un recalcul des données de la plage. 

Copy Cur PasteSpecial font le Copier, Couper, Collage spécial. Le collage simple paste ne 
s'applique qu'à une feuille (voir ci-dessus). 

Range("B2 :D3").Copy 

Sheets("Feuil3"].Range("B2 :D3").PasteSpecial 
Operation:-xlPasteSpecialOperationAdd 

M.DataSeries remplit la zone par une série de données. Si A10 contient 1, B10 2, 

Range ("A10:H10"].DataSeries crée la série 1, 2, 3, ...10 de A10 à H10. 

R.Delete supprime la zone. L'argument Shift (x1ShiftToLeft ou x1ShiftUp) précise 
comment se fait le comblement. 

R.FillDown, R.FillRight, R.FillLeft et R. FillUp recopient dans la zone sa ligne du 
haut/colonne de gauche/ colonne de droite/ ligne du bas. 

Find, FindNext, FindPrevious fontune recherche dans une zone. Voyez l'Aide. 

R.Inserr insére des cellules vides à la place de la zone R : les cellules sont déplacées selon 
l'argument Shift qui peut prendre les valeurs x1ShiftToRight ou xlShiftUp. 

R.PrintOut imprime la plage. S'applique surtout à la plage sélectionnée, 

exemple : Selection.PrintOut Copies:-2, Collate:-True 

R.Replace effectue un remplacement dans la zone. Exemple : 

Columns ("A") .Replace What:-"Dupond", Replacement:="Dupont", 
SearchOrder:-x1lByColumns, MatchCase:-True 

R.Sort effectue un tri dans la zone. & peut ne préciser qu'une cellule dans une base de données, 
Excel trouvera l'ensemble du tableau. On peut avoir jusqu'à trois couples d'arguments Key1/2/3 
— Order1/2/3. Les Ke y sont les critéres de tri, précisés sous forme d'une colonne ou d'une 
simple cellule ; les Order peuvent valoir x1Ascending (défaut) ou x1Descending. L'argument 
Header reçoit le plus souvent la valeur x1Guess, laissant à Excel le soin de deviner s'il y a une 
ligne d'en-tétes. Exemple : 

|Range ("A1:C20") . Sort Keyl:- Range("Al"), Key2:= Range("B1") 


|Range ("A1") .Sort Keyl:- Columns ("A"), Header:-xlGuess 


GESTION DES COULEURS 


On gère des couleurs en plusieurs occasions, notamment avec Font pour la couleur des 
caractères où avec Interior pour la couleur de fond des plages. On a le choix entre deux 
propriétés pour cela : Color qui est un code de couleur qui se suffit à lui-même et ColorIndex 
qui définit la couleur par son numéro d'ordre dans une palette de 56 couleurs attachée au 
classeur. Cette palette est la collection Wk. Colors. Pour voir les couleurs faites toumer le 
programme suivant (il agit sur la feuille active) : 


Sub couleurs() 
Dim i As Integer 


For i = 1 To 56 
Cells(i, 1).Value = i 
Cells(i, 2).Interior.ColorIndex - i 
Next i 
End Sub 
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On peut définir/modifier la palette par un certain nombre d'instructions du genre : 
ActiveWorkbook.Colors(1)-RGB(0,0,255). 


La propriété Color semble moins arbitraire car on peut utiliser la fonction RGB(r,v,b) qui fournit la 
couleur dont les composantes RVB sont respectivement r (proportion de rouge), v (proportion de 
vert — Green en anglais d'où le G dans le nom) et b (proportion de bleu. Ces arguments vont de 0 
à 255, la couleur étant plus lumineuse à mesure que le nombre augmente. RGB(0,0,0) est le noir, 
RGB(255,255,255) est le blanc. RGB(255,0,0) est le rouge franc. Si les trois arguments sont égaux, 
on a du gris, foncé pour des valeurs faibles, clair pour des valeurs proches de 255. Essayez : 
ActiveCell.Interior.Color = RG3(200,200,200) 


GESTION DES COMMENTAIRES 


Un commentaire est un texte associé à une cellule : il apparait dans une infobulle si le curseur 
souris est sur la cellule (sans qu'elle soit sélectionnée). En tant que tels, les commentaires ne nous 
semblent pas avoir d'intérét en automatisation de traitements, mais pour le programmeur, ils 
offrent le moyen de disposer d'une information supplémentaire dans chaque cellule. Un tel cas 
s'est présenté à nous récemment ; dans un traitement de base de données, nous avions une 
colonne d'identifiants ; puis la nécessité d'un second identifiant est apparue et il n'était pas 
question d'ajouter une colonne pour lui : nous avons donc implanté ces identifiants secondaires en 
commentaire de chaque identifiant principal. 

C.AddComment <Texte> ajoute le texte comme commentaire à la zone (obligatoirement mono- 
cellule) C. Il faut que la cellule n'ait pas déjà un commentaire. Sinon, utiliser la méthode qui suit 
pour le supprimer. «Texte» peut être absent, cela crée un commentaire vide (qui sera complété 
par la suite à l'aide de la méthode Text). 


R.ClearComments supprime les commentaires de toutes les cellules de la plage R. Pour mettre 
à coup sür un commentaire : 


Range (" 
Range("E5").AddComment "Cellule importante" 


35") .ClearComments 


Lorsqu'une cellule a un commentaire, elle a une propriété objet comment, membre de la collection 
Comments, ensemble de tous les commentaires du classeur. Comment a une propriété visihle 
(booléen qui parle de lui-même) et une méthode Text. Essayer d'appeler un élément de Comment 
pour une cellule qui n'a pas de commentaire génére une erreur. 

Text : comme fonction sans argument en lecture, Text fournit le texte du commentaire, s'il 
existe, un message d'erreur sinon. 

MsgBox "Commentaire : "+Range("E5") .Comment.Text 

Comme procédure, il faut que la cellule ait déjà un commentaire. Les arguments sont Text 
(obligatoire : le texte à introduire), Start (facultatif, la position d'insertion ; défaut : 1° 
caractère) et Overwrite (facultatif ; True : le texte introduit remplace le texte primitif depuis 
Start jusqu'à la fin, False : le texte introduit est inséré à la position Start ; attention, le défaut 
est True, contrairement à ce que dit l'aide dans certaines versions). Exemple : 
Range("E5").Comment.Text "Nouveau" 

Rajouter du texte à la fin du commentaire existant : 


With Range ("E5") .Comment 
-Text " commentaire", Len(.Text) + 1 
End With 
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Voici une fonction qui obtient à coup sûr le texte de commentaire d'une cellule : elle renvoie 
chaîne vide si le commentaire n'existe pas. C'est un exemple de récupération d'erreur. 
Public Function TextCom(r As Range) As String 
Dim x As String 

On Error GoTo erxx 

x = r.Comment.Text 

On Error GoTo 0 

TextCom = x 

Exit Function 
erxx: 


Resume Next 
End Function 
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Boites de 
dialogue 


BDi rudimentaires et prédéfinies 


BDi formulaires : construction 


Formulaires : utilisation 


Formulaires : boutons de validation 


Contrôles texte : Label, Textbox, ComboBox... 


Contrôles Frame, OptionButton, CheckBox... 
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La façon dont le programme dialogue avec l'utilisateur est un élément fondamental de l'ergonomie. 
Pour VBA avec Excel comme application hôte, il n'y a que deux manières de communiquer : soit 
prendre des données dans des classeurs ou manifester ses résultats sous forme d'actions sur des 
classeurs, soit communiquer par dialogue avec l'utilisateur pour lui fournir des résultats ou lui 
demander des données. 

Le dialogue avec l'utilisateur se fait par boites de dialogue (BDi). VBAE permet trois sortes de BDi : 

— Les BDi obtenues par les instructions (en fait fonctions) MsgBox et InputBox. Ce sont les plus 
simples encore qu'elles puissent étre assez élaborées ; nous les appelons « rudimentaires » vu 
la simplicité de mise en ceuvre, il n'y a là rien de péjoratif. 

— Les BDi prédéfinies. On peut faire apparaitre une des BDi standard d'Excel, par exemple pour 
choisir un fichier, la BDi bien connue de la commande Fichier — Ouvrir ou Enregistrer sous. Cela 
permet à l'utilisateur de ne pas étre dépaysé. 

Les BDi entierement définies par le programmeur : on les appelle aussi formulaires (VBA dit 
« UserForm »). Le programmeur implante les contróles à volonté en fonction des données à 
demander à l'utilisateur. Il y a deux phases dans une telle implantation : 
m On crée la BDi proprement dite en plaçant les contrôles voulus. 
m On implante dans le module de code associé à la BDi les routines de traitement des 
événements liés aux contróles : changement d'une valeur entrée, clic sur un bouton de 
validation. 


Il y a un 3€ élément, l'instruction d'invocation de la BDi dans le cours du programme ; on utilise la 
méthode Show. 


BDI RUDIMENTAIRES 


Procédure MsgBox 
La forme la plus simple est MsgBox "Message". Elle affiche le message dans une BDi avec un 
bouton [OK sur lequel il faut cliquer pour que le programme continue. On voit que l'argument doit 
être une chaîne de caractères. Pour transmettre un résultat, cette chaine peut être formée par 
concaténation de textes et de conversions en chaîne de caractères des données voulues. Si l'on 
veut que le texte soit multiligne, il faut utiliser des vbCr. Exemple : 


MsgBox "Au bout de "«CStr(ni)*" itérations,"+vbCr+ — 
"le résultat est "+CStr (Res) 


Autres arguments 
Les deux arguments facultatifs qui suivent sont les seuls ayant un intérét ; la forme devient (nous 
avons pris les noms des arguments, tels qu'on peut les utiliser en tant qu'arguments nommés) : 
(MsgBox «Prompt», «Buttons», «Title» 
«Prompt» est le message ; <Title> est le titre de la BDi (défaut : Microsoft Excel) ; «Buttons» 
se spécifie comme somme de constantes figuratives indiquant quels boutons on veut et quels 
pictogrammes on souhaite (les formes évoluent avec les versions) : 


© 


vbCritical 16 Message critique 


voQuestion 32 Requête de réponse 


X» 
voExclamation 48 Message d'avertissement A 
Ÿ 


Volnformation 64 Message d'information 
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Les boutons sont surtout utilisés dans la forme fonction. 


Fonction MsgBox 
Sous la forme fonction, on présente différents boutons et le résultat renvoyé par la fonction (de 
type Integer, mais on utilise des constantes nommées) indique quel bouton a été cliqué. 
R=MsgBox(<Prompt>, «Buttons», <Title>) 


Constante Valeur Boutons 
vbOKOnly 0 Bouton OK uniquement 
vbOKCancel Boutons OK et Annuler 


1 

vbAbortRetryIgnore 2 Boutons Abandonner, Réessayer et Ignorer 

vbYesNoCancel 3 Boutons Oui, Non et Annuler 

vbYesNo 4 Boutons Oui et Non 
5 


vbRetryCancel Boutons Réessayer et Annuler 


Valeur R renvoyée Bouton choisi 
vbOK 1 OK 
vbCancel 2 Annuler 
vbAbort 3 Abandonner 
vbRerry 4 Réessayer 
vblgnore 5 Ignorer 
vbYes 6 Ou 

vbNo 7 Non 


On écrira quelque chose du genre : 
If MsgEox ("Voulez-vous continuer ?",vbYeasNotvbQuestion)=vhYes Then 


Fonction InputBox 
La fonction Input Box permet d'obtenir une valeur de la part de l'utilisateur. La valeur est une 
chaîne, donc doit être convertie si c'est un nombre qu'on attend. 
cRep=InputBox(<Prompt>[,<Title>][,<Default]) 
Les autres arguments sont sans intérêt (xpos et ypos positionnent la BDi). <prompt> est le 
message qui dit à l'utilisateur quelle donnée on veut. <Tit1e> permet de fournir un titre à la BDi 
(défaut Microsoft Excel). <Default> permet de spécifier une valeur par défaut pour la réponse : 
elle apparaîtra dans la zone d'entrée où on attend la réponse. Ex : 
N=CInt ("Nombre d'itérations ? ", "Calcul de Pi", "50") 


La valeur est acquise si on clique sur OK ; C'est une chaîne vide si on clique sur Annuler. 


Application.InputBox 
Comme méthode de l'objet App: i cation, InputBox a les mêmes arguments (<Title> a pour 
défaut « Entrée ») plus un, «Type», qui spécifie les types de résultats permis : 


Valeur Type autorisé 


0 Formule 

1 Valeur numérique 

2 Chaîne de caractères 

4 Booléen (False ou True) 

8 Référence de cellule (objet Range) 
16 Valeur d'erreur 

64 Tableau de valeurs 
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Pour permettre plusieurs types, on spécifie la somme des 
valeurs du tableau, par exemple : 9 pour autoriser Range 


Es et nombre. Supposant Dim R as Range, 
e et Set R-Application.InputBox _ 
(Prompt:-"Plage à examiner", Default:- _ 
"Al:D8", Type:-8) 


affichera la BDi ci-contre. 


BDI PRÉDÉFINIES 
On fait apparaître une telle BDi par app1ication.Dialogs(«dialogue»).Show ou 
«dialogue» est une constante figurative comme x1Dialog£ort . Pour avoir la liste de ces 
constantes, dans l'Explorateur d'objets, demandez la propriété Dialogs de l'objet Application 
et [F1]. Dans l'écran d'aide apparu, cliquez sur Dia/ogs et dans la nouvelle page, sur Listes 
d'arguments... Vous aurez la liste d'arguments de la méthode Show pour chaque dialogue. Ces 
arguments donnent les valeurs initiales des paramètres dans la BDi. 

Il n'y a pas moyen de lire les valeurs des choix faits dans la BDi ; ceux-ci agissent lors de la 

validation. Voici quelques exemples : 


xlDialogActiveCellFont, x1DialogFontProperties et x1DialogFormatFont 
définissent la police de la cellule active ou de la sélection. 
xlDialogBorder installe des bordures dans la sélection. 
x1DialogFont définit la police standard du classeur (police des numéros de lignes/cols). 
x1DialogFormatNumber définit le format dans la sélection. 
xlDialogOpen choisit un fichier à ouvrir. 
xlDialogPageSetup prépare la mise en page. 
xlDialogPrint demande une impression. 
x1DialogSaveAs permet de choisir un fichier de sauvegarde. 
xlDialogSor: définit le tri à effectuer dans la sélection. 
Les deux dialogues où il est le plus intéressant d'accéder au choix effectué sont x1DialogOpen et 
xlDialogSaveAs. Précisément : 
Application.GetOpenFilename (FileFilter, FilterIndex, Title,MultiSelect) 
fait apparaître la BDi Ouvrir un fichier et donne pour résultat le nom complet du fichier choisi sans 
l'ouvrir effectivement. 
Application.GetSaveAsFilename (InitialFilename,FileFilter,FilterIndex, Title) 
fait apparaître la BDi Enregistrer sous et donne pour résultat le nom complet du fichier choisi 
(disque, répertoire et nom) sans enregistrer. Les arguments sont facultatifs et donnent des valeurs 
initiales à afficher dans la BDi ; l'utilisateur peut les changer. Ainsi la routine d'erreur en fin de 
chapitre 2 pourrait s'écrire : 
TraitErr: 

MsgBox "Impossible d'ouvrir " + FN + — 

vbCr + "Choisissez dans la BDi qui suit") 


FN = Application.GetOpenFilename () 
Resume 
End Sub 
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InputBox ne permet d'entrer qu'une donnée à la fois. Les BDi prédéfinies ne sont pas souples du 
tout. Heureusement, VBA permet à l'utilisateur de construire des BDi sur mesures, où il est maître 
de l'ensemble des données qui seront demandées à l'utilisateur, ainsi que de leur forme. C'est 
l'objet UserForm. 


CONSTRUCTION DE LA BDI 


m Faites Insertion — UserForm. 1l vient une fenêtre intitulée Classeur... UserForm1 (c'est le nom 
provisoire de votre BDi). Dans cette fenétre se trouve le prototype de votre BDi, rectangle 
vide au départ, avec le titre provisoire UserForm1. Vous pouvez régler la taille de l'une et 
l'autre par glissements souris des parois. 

m Il vient normalement aussi une fenêtre 5o/te à outils. Si elle n'est pas affichée, Affichage — 
Boite à outils ou dic sur l'icóne avec un marteau et une clé à molette. 


= Pour installer un contrôle, cliquez sur l'icône voulue dans la Boîte à outils, puis délimitez le 
rectangle qui l'encadrera dans la BDi. 


La grille de pointillés qui n'apparait qu'en mode création aide pour le positionnement : elle 
disparaît à l'exécution. Elle est régie par : 
wm Outils — Options — onglet Général (voir figure page 19). 
- M Afficher la grille 
— Choisir la taille de grille : prendre la même valeur en hauteur et en largeur ; la valeur de 
départ 6 ne donne pas une trop bonne précision ; si vous voulez plus fin, le minimum 
spécifiable est 2, ce qui donne une bonne précision. 
— M Aligner les contrôles sur la grille 


Les contróles 
Lorsque le curseur souris est sur une icóne de la Boite à outils une infobulle donne le nom du 
contrôle (en français). Sur la figure ci-dessus, nous avons indiqué les noms anglais, qui sont aussi 
les noms de types d'objet (à utiliser dans Dim). Lorsqu'un contrôle est sélectionné dans la BDi en 
construction, la touche F1] permet d'avoir un écran d'aide sur lui. 
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Les seuls contrôles non légendés sur la figure ci-dessus sont RefEa/t (vraiment trés peu utilisé : 
sert à entrer des coordonnées de plages) et le contrôle Ong/et qui est supplanté par le MultiPage. 
Nous donnons maintenant une définition/description très sommaire des contrôles, il y aura plus de 
détails plus loin. 

L'outil de sélection permet de sélectionner simultanément plusieurs contrôles sur la BDi ce qui 
permet de les déplacer en bloc ou de donner la même valeur à une de leurs propriétés. 

Pour cela, ayant cliqué sur l'outil, décrire un rectangle qui les entoure (il suffit qu'il les touche). 
Label : Etiquette, c'est-à-dire texte non modifiable par l'utilisateur ; donc peut servir à 
communiquer un résultat, mais le plus souvent à informer sur un autre contrôle. Le texte qui 
apparaît est sa propriété Caption. 

TextBox : Zone d'entrée texte donc l'utilisateur y tape une valeur qui peut être récupérée par sa 
propriété Text ou Value. Le nom par défaut est TextBox<n> mais on peut le changer. 
TextBox<n>.Text est une chaine qui devra être convertie si on attend un nombre. Le contrôle 
doit, comme les deux suivants, être accompagné d'un Label qui donne un minimum de description. 
Deuxième contrôle dans l'ordre d'importance. 

ListBox : Liste déroulante dans laquelle on choisit un ou plusieurs éléments. On identifie l'élément 
choisi par la propriété List index dans le premier cas, par la propriété tableau se: ectea dans le 
second cas. 

ComboBox : Combinaison de ListBox et de TextBox donc association d'une zone d'entrée texte et 
d'une liste déroulante ; l'utilisateur peut soit choisir un élément dans la liste (il apparaitra dans la 
zone d'entrée), soit taper ce qu'il veut. La donnée prise en compte sera la propriété Text ou 
Value (texte tapé ou choisi présent dans la zone d'entrée). 

Un TextBox ou un ComboBox peut étre rempli par un « Coller » du contenu du Presse-papiers. 
CheckB ox : Case à cocher. Il y a une propriété Caption qui est le descriptif apparaissant à côté 
de la case, tandis qu'on décèle l'état coché ou non par la propriété Va: ue. 


OptionButton : Bouton radio. Comme CheckBox pour Caption et Value, sauf que, dans un 
groupe, seul un des boutons peut être choisi ©. Pour que des boutons radio forment un groupe, il 
faut, soit les implanter sur un méme contrôle Frame, soit donner la même valeur à leur propriété 
GroupName. La Caption apparaît éventuellement après action sur Aut oSize et l'extAlign. 
ToggleButton : Bouton qui peut être (et rester) enfoncé (Value True) ou non enfoncé. La 
Caption apparaît sur le bouton. 

CommandButton : Le plus important des contrôles. Il ne transmet pas de données, mais son 
événement clic déclenche des actions. Toute BDi doit au moins en avoir un dont le clic valide 
l'ensemble des données et fait quitter la BDi. La Caption apparaît sur le bouton et doit annoncer 
sommairement ce qu'il fait. 

ScrollBar : Barre de défilement ; peut &tre verticale ou horizontale selon le rectangle qui la 
délimite. Ce contróle doit étre associé à deux labels, l'un descriptif, l'autre servant à afficher la 
valeur (le mettre à jour à chaque événement Change). La propriété Value est la valeur 
représentative de la position du curseur, comprise entre Min et Max. 

SpinButton : Incrémenteur/Décrémenteur ; peut étre vertical ou horizontal et doit comme 
ScrollBar être associé à deux labels. Les propriétés Value, Max et Min jouent le méme rôle et la 
valeur change de SmallChange à chaque clic. 


Image : Permet d'implanter une image. D'autres contrôles aussi ont une propriété Picture qui 
se détermine par «contróle».Picture-LoadPicture ("«désignfich.bmp»"]. 
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Frame : Implante un cadre sur la BDi ; il a une propriété Caption (titre du cadre apparaissant 
normalement en haut à gauche). Cela permet soit de subdiviser la BDi en zones, soit de regrouper 
des OptionButtons pour qu'ils s'excluent mutuellement. 

MultiPage : Permet de créer une BDi formée de plusieurs pages. On implante les contrôles voulus 
sur chaque page et seuls les contrôles de l'onglet choisi sont visibles et utilisables à un instant 
donné par l'utilisateur, sans que le programmeur ait rien eu à écrire pour cela. Donc ce contrôle a 
complètement supplanté le contrôle onglet. L'utilisateur fait à volonté des allers et retours de page 
en page. Pour ajouter une page à la création (au départ il n'y en a que deux), on fait un clic droit 
sur un onglet et Nouvelle page. 


Quelques propriétés communes à tous les contróles 
La plupart des propriétés peuvent &tre définies lors de la création 
- Entapant une valeur dans la fenétre Propriétés : 
m Si cette fenêtre n'est pas affichée, Affichage — Fenêtre Propriétés (F4) ou clic sur l'icône. 
wm (Implantez le contrôle dans la BDi s'il ne l'est pas encore), sélectionnez le contrôle (clic sur 
lui) : ses propriétés sont affichées dans la fenétre. 
m Sélectionnez les propriétés souhaitées et tapez les valeurs ou choisissez les dans une BDi 


pour certaines. 
— Ouen attribuant une valeur par programme : «nom». «propriété»-«valeur». 


Pour la propriété qui représente la valeur entrée d'un contróle d'entrée de données, cela peut 
servir à fournir une valeur par défaut. 
Name est le nom du contróle utilisé dans les désignations. VBA attribue des noms par défaut de la 
forme «t ype»«n*» où les types sont les types-objet (exemple : TextBox) cités plus haut et 
«n?» est un numéro de séquence 1, 2, 3, etc. Vous pouvez garder ces noms ou les changer : 
TB NomClient est plus parlant que Test 3ox:. Ces noms peuvent servir dans une désignation 
de la forme par exemple Controls ("TextBoxl").Text . Si vous avez gardé les noms 
numérotés, vous pouvez vider les dix zones d'entrée par : 
For i-1 To 10 

Controls ("TextBox"+CStr(i)).Text="" 


Next i 

qui pourrait trouver place dans une routine d'initialisation. 

On a ensuite les propriétés de position et taille Left, Top, Height et Width. Celles-ci peuvent 
être modifiées par programme ; à la création, elles peuvent être tapées, mais elles sont surtout 
définies par placement direct du contrôle. 


Formatage des contrôles. 
Ces opérations sont utiles pour régulariser la présentation d'un certain nombre de contrôles. 
m Sélectionnez l'ensemble des contrôles concernés avec l'outil de sélection ou par des clics avec 
la touche [tr appuyée, puis Format Les choix parlent d'eux-mêmes : 

— Aligner : Gauche / Centre / Droite / Haut / Milieu / Bas / Grille 
— Uniformiser la taille : Largeur / Hauteur / Les deux 
— Ajuster la taille 
— Ajuster à la grille 


— Espacement horizontal : Égaliser / Augmenter / Diminuer / Supprimer (les contrôles se 
toucheront) 
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— Espacement vertical : Mêmes choix que pour horizontal 

— Centrer sur la feuille : Horizontalement / Verticalement 

— Réorganiser les boutons : En bas / À droite 
Les propriétés Font, BackColor, BackStyle et ForeColor réglent la présentation soit de la 
Caption, soit de la donnée entrée. BackStyle permet de rendre le fond du contrôle opaque 
ou transparent. MousePointer et MouseIcon (laisser Aucun) règlent la présentation du 
curseur souris. Elles ne sont pas vitales. 
Les suivantes règlent le passage d'un contrôle à un autre par la touche tabulation |e] : Tabstop 
doit être à True pour qu'on puisse arriver au contrôle par tabulation. La valeur de TabIndex fixe 
l'ordre ; a] fait aller au contrôle qui a la valeur immédiatement supérieure. Il vaut mieux que 
l'ordre soit le plus logique possible, mais l'utilisateur peut toujours aller au contróle qu'il veut en 
cliquant. 


ControlTipText est un texte qui apparaîtra à l'exécution dès que le curseur souris sera sur le 
contróle : un bon moyen de donner des indications à l'utilisateur. 


Tag est une propriété curieuse : c'est une chaine de caractéres qui n'a aucun effet sur le 
comportement du contróle, mais elle offre le moyen de stocker « gratuitement » une information. 
Nous en faisons personnellement beaucoup usage : imaginez qu'on mette dans les Tags d'une 
série de TextBox (es) les coordonnées des cellules oü doivent aller les informations saisies 
(exemple : "Feuil1!D5") ; la prise en compte des données (dans la routine de clic du bouton OK ) 
S'écrira (supposant Dim ct As Control): 


For Each ct In Controls 

If Left(ct.Name,7)2"TextBox" Then Range(ct.Tag) .Value=ct.Text 
Next 
Nous arrivons maintenant à deux propriétés vitales. visible est True lorsque le contróle est 
visible ; Enabled est True lorsque le contrôle est actif : un bouton inactif est insensible au clic ; 
si un TextBox est inactif, l'utilisateur ne peut pas y taper de données, mais il peut toujours servir 
de zone de sortie d'une valeur qui y sera mise par programme. On peut rendre un bouton ou un 
contróle inactif par programme lorsque la situation est telle que le clic sur ce bouton n'a pas de 
sens pour le moment, ou lorsqu'il ne faut pas changer la valeur présente. Rendre des contróles 
invisibles est un moyen de faire évoluer l'aspect de la BDi en fonction des circonstances. Une 
section y est consacrée au chapitre 8. 
Voici un point fondamental : si un contrôle a Visible-False, il faut qu'il ait aussi 
Enabled=False : il serait catastrophique qu'un clic sur un emplacement que l'utilisateur voit vide 
crée un effet ! 


Propriétés de la BDi 
Si vous cliquez sur la BDi hors de tout contróle, ce sont les propriétés de la BDi qui apparaissent 
dans la fenêtre Propriétés. 
Name joue le même rôle que pour un contrôle. Le système attribue UserForm<n°>. Vous pouvez 
changer ce nom pour un plus parlant, par exemple UF_DonnéesClient et 
UF DonnéesFournisseur qui seront plus faciles à distinguer que UserForm1 et UserForm2. 
Ce nom est à utiliser comme préfixe pour accéder aux contrôles depuis un module (il faut que la 
BDi soit chargée en mémoire — voir section suivante), mais ceci est inutile pour les routines 
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événements des contrôles qui sont dans le module associé à l'UserForm : l'objet principal est alors 
sous-entendu ou représenté par Me. 

Caption est le titre qui apparaît dans la barre de titre. Il peut être modifié par programme, par 
exemple on peut entrer alternativement "Nouveau client" et "Modifier client" tout en utilisant la 
même BDi UF_DonnéesClient. Lorsqu'on demande le listing imprimé du projet, la barre de titre 
n'apparaît pas. Nous suggérons d'implanter un label qui répète le titre, mais ait visible-False: 
il sera invisible à l'exécution, mais sera visible au listing. 

Nous n'insistons pas sur les propriétés de placement et dimensions qui peuvent être modifiées par 
programme pour faire une BDi d'aspect variable, ni sur la présentation Font, bordures, couleurs. 
Éventuellement, la taille donnée à la BDi peut être plus petite que ce qu'impliquent les contrôles 
implantés. Il faut alors des barres de défilement régies par les propriétés à valeurs évidentes 
ScrollBars, KeepScroll3arsVisible, ScrollHeight, ScrollWidth, ScrollTop 
et ScrollLeft. 

ShowModca1 doit être laissée à True pour obliger l'utilisateur à répondre et valider. Il peut être 
mis à False pour que la BDi reste visible alors que l'exécution continue après l'affichage de la BDi ; 
ceci est rarement utilisé. 

Dans tout le module associé à la BDi, celle-ci peut se désigner par Me. 


Amplanter une routine de traitement 
= Éventuellement [F7] pour faire apparaitre la fenêtre de module. 
wm Choisissez le contrôle ou UserForm dans la liste déroulante en haut à gauche 


= Choisissez l'événement dans la liste déroulante à droite. Sub et End Sub apparaissent et 
vous n'avez plus qu'à taper vos instructions. 
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Il y a quatre phases dans l'utilisation d'une BDi (en plus de la phase de création) : 

1) Faire apparaitre la BDi : instruction dans un module normal (« module appelant »). 

2) L'utilisateur entre des données, il se produit des événements : les routines de traitement de ces 
événements sont dans le module associé à la BDi. 

3) Le dernier de ces événements doit étre le clic sur un bouton de validation. La routine 
correspondante effectue des vérifications et se termine en quittant la BDi. 

4) Revenu dans le module appelant, on exploite les données. 

Il peut méme y avoir 6 phases, selon la manière d'effectuer (1) et (3). 

(1) peut être décom posée soit par une seule instruction UserForm1.Show, soit par la séquence 

(si le nom de BDi est UserForm1) : 

[Load UserForm1] (1a) charge la BDi, et produit l'événement UserForm Initialize. 

UserForml.Show (1b) rend la BDi visible et produit l'événement User Form Activate. 

Selon la façon dont (3) a été effectuée, si la BDi était restée en mémoire, il n a que l'événement 

Activate, si la BDi n'était plus/pas en mémoire, la méthode Show implique un Toad et 

l'événement Initialize se produit (avant Act i vate). Maintenant, (3) peut se faire 

(instructions terminant la routine de clic du bouton OK) soit par Unload Me , soit par Me.Hide . 

Rappelons que Me désigne l'UserForm. Unload fait disparaître de la mémoire les données de la 

BDi, Hide les conserve. Si vous appelez/quittez la BDi par couple Load-Sh ow/Ur1oac, la BDi 

sera vide à chaque apparition. Si vous utilisez le couple Show/Hide, à sa réapparition les contrôles 

auront les valeurs de l'apparition précédente à moins que la routine d'Activate ne les vide. 


Hypothése Load Show Unload Hypothése Show Hide 
1a) Load UserForml—->Initialize, 1) UserForm1.Show--->Activate 
Données initialisables par (précédé de Initialize), La BDi 
UserForml.Contróle.Propriété-.. apparait, Les initialisations ne 
1b) UserForml.Show-->Activate peuvent étre que dans la routine 
La BDi apparaît. d'Activate. 
2) Entrée de données - traitements 2) Entrée de données - traitements. 
3) Unload Me---> Déactivate, 3a) Me.Hide---> Deactivate, 
la BDi disparait, les données ne sont plus la BDi disparait, Les données sont 
accessibles. accessibles, désignables par 
UserForml.Contréle. Propriété. 
4) Exploitation des données a condition 3b) Unload UserForm! facultatif 


qu'elles aient été transmises dans des 


E: 5 4) Exploitation des données (transmises 
variables publiques pendant (2). 


S'il y a eu Unload, directes sinon). 
Grisé : instructions du module associé à la BDi. Fond blanc, instructions dans le module appelant. 
En résumé, on peut faire apparaître la BDi avec le seul recours à Show puisqu'il fera un Toad s'il 
en est besoin. Inversement, un Load effectué alors que la BDi est en mémoire sera inopérant et 
l'événement Initialize ne se produira pas. Pour faire disparaître la BDi, on a le choix entre 
Hide (qui peut conserver les données jusqu'à la prochaine apparition de la BDi) et Unloaa (qui 

« perd » les données dès la disparition de la BDi). 

Le seul événement qui est certain d'avoir lieu avec l'apparition de la BDi est Activate. C'est donc 
dans sa routine UserForm Act:vate qu'il faut implanter les initialisations voulues. Souvent les 
programmeurs fournissent une routine UserForm Initialize avec la seule instruction 
UserForm Activate. C'est un excès de prudence : dans le cas où l'événement Initialize se 
produit (à la 1° apparition avec le couple Show/Hice, toujours avec le couple Show/Un1oad), les 
opérations d'initialisation sont faites deux fois. 
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BOUTONS DE VALIDATION 


Toute BDi doit avoir au moins un bouton dont la routine de clic se termine par une instruction qui 
fait disparaître la BDi (Unload ou Hide). Ce bouton est appelé bouton de validation. En son 
absence, il n'y a que le bouton Quitter à droite de la barre de titre, mais c'est peu ergonomique. 
Comme son nom « bouton de validation » l'indique, la routine doit contenir aussi les dernières 
instructions de prise en compte des données entrées et, éventuellement des tests de validité des 
données entrées. 

De fait, il peut y avoir aussi un bouton d'annulation qui permet d'abandonner la BDi sans utiliser 
les données. Il peut d'ailleurs y avoir des boutons de validation partielle en fonction des premières 
données entrées. Prenons l'exemple d'une BDi pour modifier des données dans une BD, disons des 
clients. On aura une TextBox pour entrer le nom du client. Il y aura un bouton [Chercher] pour 
chercher l'enregistrement du client ; une fois un tel enregistrement trouvé, on affiche les autres 
données. Il faut un bouton pour signaler que le client convient. En effet, il peut y avoir 
plusieurs clients du même nom, donc si ce n'est pas celui qu'il faut, l'utilisateur clique à nouveau 
sur Chercher. Les boutons de validation seront inactivés à l'initialisation et c'est la routine de clic 
du bouton Correct qui les activera. 

Dans un tel exemple, on peut envisager deux boutons de validation : ok et OK Dernier en plus 


du bouton Annuler. On emploie deux booléens publics pour pouvoir à volonté traiter plusieurs 
clients. Dans le module appelant, on a : 


Dernier=False 
While Not Dernier 

UF_Client.Show 

If Satisf Then … ' Exploiter les données 
Wend 


Dans le dic de 0K, on a Satisf=True , dans {OK_Dernier, on a en plus pernier-True et dans 
Annuler, on a Satisf-kalse . Toutes ces instructions sont suivies de Unload Me. 


Les boutons de validation ont deux propriétés booléennes Default et Cancel. Lorsque Default 
est Trus, le bouton est le bouton par défaut (il ne peut y en avoir qu'un dans ce cas) : taper 
Entréd revient à cliquer sur le bouton par défaut et valide la BDi. Lorsque Cance1 est True (il ne 
peut y avoir qu'un bouton dans ce cas), taper sur Echag revient à cliquer sur le bouton Annuler. Un 
bouton peut avoir les deux propriétés vraies, ce qui fait que l'annulation a un maximum de 
chances d'avoir lieu ; cela peut être utile pour une BDi qui demande la confirmation d'une 
opération dangereuse ou irréversible comme une suppression. 


Le texte qui apparaît dans le bouton est sa propriété Caption. Ce texte doit être bref mais précis 
pour que l'utilisateur prévoie bien l'action avant de cliquer. Vous pouvez utiliser ControlTipText 
pour donner un complément d'information. La Capt. ion peut être modifiée par programme, si le 
róle du bouton évolue. Vous pouvez mettre une image sur le bouton en cliquant sur sa propriété 
Picture dans la fenêtre Propriétés. Un clic sur le bouton E Qui apparait, donne une BDi pour 
choisir le fichier image. 


QUE METTRE DANS LA ROUTINE D'INITIALISATION ? 


La routine UserForm Activate va contenir des initialisations de contrôles : choix de la 
Caption de la BDi, vidage ou mise à leurs valeurs initiales des contróles données, initialisation 
des listes des ListBox et des ComboBox (indispensable : ces listes ne peuvent étre initialisées dans 
la fenêtre de propriétés à la création), mise dans l'état de départ voulu des propriétés Enabled de 
certains contróles et boutons. 
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LABEL 
Les Labels peuvent fournir des messages à l'utilisateur. On peut changer le message en fonction 
des circonstances en donnant une valeur à la Capt ior. Par ailleurs, on peut avoir préparé deux 
labels différents au même endroit et on échange leur visibilité. 
Le texte peut étre long : vous donnez au label la forme d'un rectangle et le texte occupera 
plusieurs lignes si la propriété WordWrap est True, alors que si elle est False, le texte défilera 
sur une seule ligne quelle que soit la hauteur du rectangle. On force un aller à la ligne par 
Maj+Entréd. Nous n'insistons pas sur les propriétés de présentation, police, etc., d'ailleurs 
communes à tous les contróles texte. Citons TextAlign. 


TEXTBOX 
Ce contrôle permet d'entrer une donnée : la propriété Text (ou Va lue) est la chaine de carac- 
téres présente dans le contróle. Si l'on veut un nombre ou une date, etc., il faut convertir la 
chaîne. Par ailleurs, vous pouvez avoir intérêt à changer le nom TextBox<n°> en quelque-chose 
de plus parlant, exemple : TBNomClient. Grâce aux couleurs de fond, l'aspect est tres différent 
d'un label, mais ceci est trompeur : vous pouvez parfaitement créer un label à fond blanc ou un 
TextBox à fond gris. Vous pouvez même avoir un fond blanc pour toute l'UserForm. Enfin, si 
Enabled est fausse, on ne peut pas entrer de données et le comportement devient trés voisin du 
label. Ce n'est pas le but de ce contróle : on peut le désactiver dans certaines circonstances si la 
donnée correspondante ne doit pas être changée ou n'a pas de signification pour le moment. 
MaxLength limite la longueur de la réponse (défaut 0 = pas de limite). Pour des textes longs, 
donnez la forme d'un rectangle et mettez les propriétés Mui t inine et WordWrap a True . Vous 
pouvez mettre en œuvre des barres de défilement. On force un saut de ligne par Maj+Entréd. 


Événements 
Les deux événements importants sont Change (déclenché dès qu'un caractère est modifié) et 
Exit (on quitte le contróle par tabulation ou clic sur un autre contróle). On peut aussi utiliser les 
événements Key (notamment XeyPress) et Enter (on arrive sur le contrôle). Change ne peut 
servir pour déceler la fin de la frappe d'une donnée, en particulier pour faire une correction 
automatique (Text30x1.Text=UCase (TextBoxl.Text) pour convertir en majuscule) ce serait 
une erreur d'utiliser change car l'événement serait redéclenché. 


Le mieux est d'utiliser Exit : la routine peut contenir des vérifications de validité ; on peut 
d'ailleurs mettre l'argument Cance1 à True pour forcer à rester sur le contrôle tant que la donnée 
n'est pas valide. Elle peut contenir des instructions de correction automatique ou des instructions 
d'interaction avec d'autres contróles activer ou désactiver certains boutons selon la donnée entrée, 
définir les données proposées au choix dans une ListBox ou ComboBox, proposer un début de 
valeur par défaut dans une autre zone d'entrée. 


La routine suivante vérifie que la donnée est numérique sinon refuse de quitter, si oui active le 
bouton Chercher et désactive [ok i 


Private Sub TextBox1 Exit (ByVal Cancel As MSForms.ReturnBoolean) 
If IsNumeric (TextBoxl.Text) Then 
B Chercher.Enabled = True 
B OK.Enabled = False 
Else 
Cancel - True 
End If 
End Sub 


(Bien que l'argument Cancel soit ByVal, la routine peut le modifier et il y a répercussion vers 
l'appelant — un événement et non un programme VBA : c'est une gestion spéciale). 
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L'événement KeyPress peut déceler un appui de la touche Entrée qu'on peut adopter comme 
indicateur de fin. Mais cela suppose qu'on n’a pas donné un rôle de validation générale à cette 
touche en mettant à True la propriété Default d'un bouton. L'événement Enter peut servir à 
installer dans le contrôle une valeur par défaut dépendant des valeurs d'autres contrôles. 


LISTBOX 


La ListBox présente des textes à choisir : donc la propriété Text ne pourra avoir qu'une valeur 
parmi les propositions. Si les dimensions sont insuffisantes pour que toute la liste soit visible, des 
barres de défilement apparaissent automatiquement (alors qu'il faut agir sur la propriété 
ScrollBars pour un TextBox). Nous ne considérons ici que le cas d'une seule colonne. La 
propriété MultiSelect permet d'autoriser les sélections multiples. ListStyle permet d'associer 
un bouton radio (sélection unique) où une case à cocher (multisélection) à chaque ligne. 
En monosélection, Text (ou Value) est le texte choisi, ListIndex son numéro (de 0 à 
ListCount-1). En multisélection, Text est vide, List Index est le numéro du dernier choisi, 
Selected est un tableau de booléens disant si un élément est choisi ou non. Voici comment 
remplir une ListBox et l'exploiter en s'adaptant au cas mono ou multisélection : 
Private Sub ListBoxl Enter () 

ListBoxl.Clear = 

ListBoxl.AddItem "..." 

ListBoxl.AddItem "..." ' et ainsi de suite 
End Sub 
Private Sub ListBoxl Exit (ByVal Cancel As MSForms.ReturnBoolean) 

Dim t As String, i As Integer 

If ListBoxl.Text - "" Then 


For i - 0 To ListBoxl.ListCount - 1 
If ListBoxl.Selected(i) Then t = t + ListBoxl.List(i) 
Next i 
End If 
MsgBox ListBoxl.Text + CStr(ListBoxl.ListIndex) + t 
End Sub 


COMBOBOX 


La Combobox est plus utilisée. C'est la combinaison d'une ListBox et d'une TextBox puisqu'on peut 
fabriquer le contenu (Text OU Value) soit en tapant une chaine soit en choisissant dans la liste 
déroulante. On peut limiter au choix dans la liste en mettant à True la propriété MatchRequired 
(dans ce cas, on ne peut pas non plus laisser la réponse vide). 
Il n'y a pas de multisélection possible. List Index est toujours le numéro d'élément choisi de 0 à 
ListCount-1 ; il vaut -1 si on a tapé une donnée sans choisir dans la liste. Si on tape un élément 
de la liste, il est reconnu et ListIndex a pour valeur son numéro. Si on tape les premières lettres 
d'un élément, la liste déroule jusqu'à lui et le présélectionne. On remplit la liste comme pour 
ListBox par Clear puis des AddItem. Ci-dessous, si on tape une valeur hors liste, elle est ajoutée 
en fin de liste : 
Private Sub ComboBoxl Exit(ByVal Cancel As MSForms.ReturnBoolean 

If ComboBoxl.ListIndex - -1 Then ComboBoxl.AddItem ComboBoxl.Text 
End Sub 
Les versions les plus récentes d'Excel semblent favoriser Value si on veut imposer une valeur par 
programme. 
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CONTRÔLES FRAME, OPTIONBUTTON, CHECKBOX... 


FRAME 


Une fois le rectangle du Frame tracé sur la BDi, et fourni la Caption qui est le titre, vous devez 
implanter les contrôles voulus sur la surface. Vous pouvez implanter une image de fond: il faudra 
régler le EackStyle des contrôles à transparent. L'intérêt principal est que des OptionButtons 
implantés dans le même Frame forment un groupe dont seul un peut être sélectionné. Le titre du 
Frame formera le nom du groupe (exemple : Situation de famille). 

Un autre effet du Frame peut être de subdiviser la BDi en différents centres d'intérêt. La 
subdivision sera d'autant mieux marquée que vous aurez spécifié une bordure par BorderStyle. 
Vous pouvez implanter plus de contróles que les dimensions du cadre semblent le permettre gráce 
à des barres de défilement : propriétés ScrollBars, ScrollHeight, ScrollWidth, 
ScrollLeft et ScrollTop. 


Les contróles placés sur un Frame peuvent (et doivent) &tre désignés par leur nom sans préfixer 
par le nom du Frame. 


CHECKBOX 


C'est une case à cocher. Chaque case est indépendante des autres et plusieurs cases peuvent être 
cochées sans problème. La Caption est le texte d'accompagnement placé à côté de la case pour 
définir son rôle. La propriété Al ignment décide si ce texte sera à gauche ou à droite de la case, 
tandis que t extA1:gn décide si ce texte sera à gauche, centré ou à droite dans le rectangle 
qu'on a attribué au contróle. 


La propriété TripleState vraie permet d'avoir un 3° état « grisé » ou « coché en gris ». La 
propriété importante est Value qui représente l'état de la case : True (cochée), False (non 
cochée) et Nu11 (grisée si TripleState est True). 

Pour exploiter la valeur, l'événement utile est soit Exit, soit Click : l'état obtenu sera celui qui 


résulte du clic. L'état peut servir de donnée ou alors de booléen pour orienter les traitements. On 
écrira quelque chose comme If CheckBoxl.Value Then … 


OPTIONBUTTON 


C'est un bouton radio. Il ne s'envisage en principe pas isolé, auquel cas il ne se distinguerait pas 
de CheckBox. Seuls, les boutons radio isolés peuvent avoir le 3€ état. Parmi les boutons radio d'un 
méme groupe, seul un peut être coché : le clic qui coche un des boutons radio décoche en méme 
temps les autres. La propriété A1 i gnment décide si ce texte sera à gauche ou à droite de la case, 
tandis que TexLAlign décide si ce texte sera à gauche, centré ou à droite dans le rectangle 
qu'on a attribué au contróle. 

Pour former un groupe, soit implantez les boutons radio dans un même Frame, soit attribuez la 
même valeur à leur propriété GroupName. Dans cette demiére solution, il est probable qu'il faut 
ajouter un label indiquant le nom du groupement, alors que dans l'autre solution, le nom du Frame 
en tient lieu. 

L'état est représenté par la Value (True ©, False O ou Null grisé). La valeur Null ne peut se 
donner qu'à la création ou par programme et à condition que TripleState soit Vrai etle 
bouton isolé. Les événements les plus utiles sont Exit et Cli 


TOGGLEBUTTON 


C'est un bouton qui s'enfonce ou ressort quand on clique dessus. La Caption est le texte en 


façade. À part l'aspect graphique très différent, les propriétés et le fonctionnement sont les mêmes 
que ceux d'une CheckBox. 


CONTROLES FRAME, OPTIONBUTTON, CHECKBOX... 


f ToggleButton1 Vrai 
Lorsque TripleState est True, on passe par les trois états par clics successifs. Les états sont 
représentés par Value (Null ne peut s'obtenir que par ..Value=...) : 


SCROLLBAR 
C'est une barre de défilement formée d’un curseur qui défile entre deux extrémités où se trouvent 
des flèches. On déplace le curseur : 
— par clic sur une des flèches ; la valeur varie de +SmallChange ; 
— par clic entre le curseur et une flèche ; la valeur varie de +LargeChange ; 
— par glissement du curseur à la souris. 
La valeur représente proportionnellement la position du curseur ; elle forme la propriété Value et 
elle est comprise entre les propriétés Min et Max. La barre est verticale ou horizontale selon la 
forme du rectangle à la création ou la propriété Orientation. 
Le contrôle doit être accompagné de deux Labels ou TextBoxes pour fournir une description et 
afficher en permanence la valeur actuelle. Pour mettre à jour ce dernier, on utilise l'événement 
Change qui est déclenché dés que la valeur varie. On écrira par exemple : 
Private Sub ScrollBarl Change() 

Label3.Caption = CStr(ScrollBari.Value) 

End Sub 
Il y a aussi Scro11 déclenché au glissement. Pour exploiter la valeur finale atteinte, on peut faire 
appel à l'événement Exit. 


SPINBUTTON 


C'est un couple de deux flèches disposées horizontalement ou verticalement selon le rectangle 
défini à la création cu la propriété Orientation. Un dic sur la flèche vers le haut ou vers la 
droite augmente la valeur de Smal 1Change ; un clic sur la flèche vers le bas ou vers la gauche la 
diminue. 


La valeur est entière, contenue dans la propriété Value et comprise entre les propriétés Min et 
Max. 


Le contrôle doit être accompagné de deux Labels ou TextBoxes pour fournir une description et 
afficher en permanence la valeur actuelle. Pour mettre à jour ce dernier, on utilise l'événement 
Change qui est déclenché dés que la valeur varie. On peut utiliser aussi Sp inup et SpinDown 
mais il faut fournir deux routines. Pour exploiter la valeur finale atteinte, on peut faire appel à 
l'événement Ex it. Voici ce qu'on pourrait écrire : 
Private Sub SpinButtonl Change() 

Label* 
End Sub 
Private Sub SpinButtonl Exit (ByVal Cancel As MSrorms.ReturnBoolean) 
* CStr(SpinButtonl.Value) 


zaption - CStr(SpinButroni.Value) 


MsgBox "Valeur finale 
End Sub 


MULTIPAGE 


Ce contróle permet d'implanter une liasse de pages, chacune étant signalée par un onglet. 
L'intérêt est que la gestion est entièrement automatique. I! suffit d'implanter les contrôles voulus 
sur la page souhaitée : l'utilisateur n'aura qu'à cliquer sur la page correspondante pour accéder 
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aux contrôles voulus. Il n'y a pas à préfixer les désignations de ces contrôles ni du nom du 
MultiPage, ni du nom de la page. Plus de détails sur les MultiPage au chapitre 8. 


CONTRÔLES LIÉS 

Pour les contrôles d'entrée de données, on peut associer une cellule ou une plage en spécifiant la 
chaîne par exemple "A4" comme valeur de la propriété ControlSource : il y aura alors mise à 
jour automatique dans les deux sens. Le contrôle reflètera le contenu de la cellule dès l'apparition 
de la BDi et, dès que la valeur du contrôle sera modifiée, la cellule sera modifiée en conséquence. 
Nous conseillons plutôt de ne pas utiliser cela et de gérer l'association par instructions explicites. 
ListBox et ComboBox ont aussi une propriété RowSource qui spécifie une plage. La liste est 
remplie avec les valeurs de la plage spécifiée, ce qui évite une batterie d'instructions Additem. 
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PORTÉE DES DÉCLARATIONS 


La portée d'une déclaration désigne le domaine dans lequel l'élément déclaré est connu et 

accessible — on dit « visible ». Pour une variable ou une constante, il y a quatre niveaux possibles : 

— La donnée est visible (et n'est visible que) dans une certaine procédure/fonction : on dit qu'elle 
est locale à cette procédure/fonction (1). 

— La donnée est visible dans tout le module oü elle est définie. On dit qu'elle est globale au 
niveau module (2). 

— Une donnée globale à un module peut n'être accessible que dans ce module - elle est alors 
privée ou être accessible depuis d'autres modules du même projet — elle est alors publique 
(3). 

— La question de pouvoir accéder à une donnée publique depuis un autre classeur sera vue dans 
la derniére section de ce chapitre (4). 

Pour une procédure ou une fonction, seuls les niveaux 2, 3 et 4 sont en jeu : depuis une 

procédure/fonction, on peut toujours sans rien faire de spécial appeler les autres procédures/ 

fonctions du même module. Pour appeler une routine d'un autre module, il faut que la routine 
appelée soit publique. 


DÉCLARATIONS 


Pour rendre locale une donnée, il faut et il suffit que sa déclaration (Dim ou Const) soit dans la 
procédure/fonction concernée. Les arguments d'une routine sont déclarés (ils recoivent leurs 
types) dans l'en-téte de la routine ; ils sont donc locaux bien que nommables dans la routine 
appelante, mais il est vrai que c'est dans la liste d'appel, donc déja un peu dans la routine appelée. 
Bien que ce soit trés déconseillé, on peut déclarer dans une routine une variable/constante de 
méme nom qu'une donnée globale : cela forme une nouvelle variable locale à la routine et, dans 
celle-ci, c'est la donnée locale qui est accessible. 

Pour rendre une donnée globale au niveau module, il faut et il suffit que sa déclaration (Dim ou 
Const) soit placée en téte de module avant toute procédure ou fonction. 


La question public/privé ne se pose que dans un projet multimodule. Il peut y avoir plusieurs 
modules normaux Module<n>, mais en principe, on les regroupe en un seul. Les vraies raisons 
d'avoir plusieurs modules dans le projet sont la présence de procédures d'événements de classeur 
dans les modules associés aux Excel Objects et la présence de BDi construites par le 
programmeur : elles ont des modules associés. 


Pour déclarer une donnée publique ou privée, on utilise les mots-clés Public ou Private. Ces 
mots-clés remplacent Dim et s'ajoutent à Const, Sub et Function: 

Public DX As Double 

Public Const Chem = >: \Excel\" 

Public Function Ouvert (NN As String) As Boolean 

Private Sub Wo rkbook_Open () 


Maintenant, une variable ou une constante est privée par défaut donc Public est indispensable si 
on veut la rendre publique. Pour une procédure ou fonction dans un module ordinaire, c'est public 
qui est le défaut ; dans un module de feuille, classeur ou BDi, c’est privé qui est le défaut : les 
routines d'événements sont déclenchées par l'événement, pas par un appel venant de l'extérieur 
du module. Maintenant, vous avez remarqué que VBA met automatiquement Private. 

Notre conseil est que vous utilisiez Public et Private méme si c'est l'état par défaut : cela 
améliore la lisibilité et insiste bien sur l'état que vous souhaitez pour l'élément. 


Enfin, Option Private Module placée en téte d'un module rend privées toutes les données de 
ce module. 


DURÉE DE VIE DES VARIABLES 


La durée de vie d'une variable est l'intervalle de temps pendant lequel la variable est accessible et 
conserve sa valeur. Cette durée n'est autre que le temps pendant lequel une certaine adresse 
mémoire reste attribuée à la variable. Dans les langages modernes, et VBA en fait partie, on essaie 
d'économiser la mémoire le plus possible donc on essaie de libérer les adresses dés que c'est 
possible. 

Pour les variables locales à une procédure/fonction, cette durée est bréve : en effet, on attribue 
des adresses aux variables locales seulement lorsque la routine est lancée et on libère les adresses 
dès la fin d'exécution de la routine, donc lors du End ou de l'Exic. 

Hors de ce temps, la variable n'existe méme pas : elle ne saurait donc conserver une valeur et, par 
suite, lorsqu'on rappelle la procédure/fonction, la variable n'a aucune chance d'avoir la derniére 
valeur qu'elle avait à la fin de l'exécution précédente, pour la bonne raison qu'elle n'a 
probablement pas la même adresse. 

Les variables globales à un module, elles, existent et gardent leurs valeurs tant que le module 
existe, donc tant que le classeur est chargé. 


STATIC 
Pour qu'une variable garde la même valeur d'un appel à l'autre d'une procédure/fonction, il y a 
deux solutions : 
— Utiliser une variable globale. 
— Si vous tenez à ce que la variable soit locale (par exemple pour réutiliser un nom), vous pouvez 

utiliser la déclaration Static (à la place de Dim): 

Static Nombre As Integer, Mat(10, 10) As Double 
Cette déclaration doit être en tête de la routine (conseil que nous donnons pour toutes les 
déclarations). Une procédure/fonction peut être déclarée static : elle reste en mémoire , ainsi 
que toutes ses variables locales (sans avoir besoin de static) tant que le module existe : 


Static Sub ''raitement () 


LES DONNEES DE BDI 


Les données (propriétés des contrôles) d'une BDi font l'objet d'un problème assez voisin. Les 
propriétés des contrôles d'une BDi sont accessibles et gardent leur valeur entre les moments où on 
exécute Loac et Unload. Si on ferme la BDi par la méthode Hide, les dernières valeurs prises 
par les propriétés se retrouveront lors du prochain Show. Si on la ferme par Unload, les valeurs 
sont perdues : toutes les adresses mémoire sont libérées et, lors du prochain Show (qui entraîne 
implicitement un Loac préalable), des adresses probablement différentes seront attribuées. 


PARTAGE DE FONCTIONS ENTRE FEUILLES DE 
CALCUL ET VBA 


UTILISATION SOUS EXCEL DE FONCTIONS ÉCRITES EN VBA 


Une fonction que vous écrivez dans un module normal peut s'utiliser sans probléme dans toute 
expression arithmétique que vous implantez dans une cellule sous Excel. Le seul problème 
potentiel est que la feuille Excel constitue un module différent, mais comme les fonctions sont 
publiques par défaut, le problème n'en est pas un : si vous voulez clarifier parfaitement la 
situation, déclarez votre fonction Public. 

À ce moment, pour implanter votre fonction, cliquez sur le bouton (sur la ligne d'entrée) ; 
choisissez la catégorie Personnalisées ; vous devriez voir votre fonction dans la liste. 

La question qui reste est : quelle raison a-t-on de développer ses propres fonctions compte tenu 
de l'extraordinaire richesse des fonctions déjà disponibles ? On pourrait méme penser à l'inverse : 
exploiter sous VBA des fonctions de feuille d'Excel : c'est l'objet du point suivant. En tous cas, on 
peut toujours avoir besoin d'adapter un détail exactement à son cas et donc d'écrire ses propres 
fonctions. 

Vous pourriez penser à utiliser la fonction factorielle donnée en exemple page 68, mais c'est raté ! 
Excel en a une version disponible. 


UTILISATION SOUS VBA DES FONCTIONS DE FEUILLES EXCEL 
Pas la peine de réinventer la roue ! Inutile de programmer une fonction si elle est disponible dans 
les feuilles Excel : vous pouvez l'appeler dans vos expressions arithmétiques VBA. Toutes les 
fonctions de feuilles Excel sont disponibles sous forme de sous-objets de l'objet 
WorksheetFunction. 
Il y a deux éléments qui requièrent l'attention : 
1) II faut employer le nom anglais de la fonction ; il y a plusieurs manières de le trouver : 
au moment de taper votre expression, des que vous avez tapé le point aprés 
WorksheetFunction, la liste des fonctions possibles apparait 
vous pouvez afficher la classe WorksheetFunction dans l’Explorateur d'objets : les 
membres sont les fonctions à appeler ; 

— dans une cellule de feuille Excel (disons A1), vous tapez une expression qui contient la 
fonction voulue (en français) ; ensuite sous VBA, vous affichez la fenêtre Exécution dans 
laquelle vous tapez ? Range ("A1") . Formula : la formule s'affiche avec le nom anglais 
de la fonction ; 

— livré avec Excel, il y a dans C\Program Files(x86) Microsoft Office\root\ Office« nn > 1036 
un fichier VBALIST.XLS3 qui devient un classeur Excel dès que vous changez l'extension en 
-XLS ; il donne la correspondance.( «nn» est le n° de la version, par exemple 16. En tous 
cas, prenez le n? le plus grand ; il peut changer lors des mises à jour automatiques 


d'Office 365). 
2) Les arguments doivent être présentés « à la VBA » : une zone doit être sous la forme 
Range (..) ; par exemple si dans une cellule vous avez -SOMME (D2:D10), vous aurez dans votre 


expression : WorksheetFunction.Sum(Range ("D2:D10")). 

Les fonctions les plus susceptibles de servir sont les fonctions statistiques sur bases de données 
comme DSum, DCounr, etc. et les fonctions conditionnelles comme sum? f, Count 7 f, etc. des 
écarts-types StDev ou des éléments statistiques comme SumProduct ou encore des recherches 
comme Match ou Vlookup, etc. 


Dans les versions précédentes on avait aussi besoin des fonctions financières d'Excel, mais des 
fonctions financiéres ont maintenant été introduites dans VBA. 
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REMARQUES SUR QUELQUES FONCTIONS VBA 


Les listes sont en annexe. Ici, nous nous bornons à quelques indications. 


Fonctions mathématiques 
Rnd 
renvoie un nombre aléatoire de type Single. Il y a un argument facultatif N qui régit les résultats 
lors d'appels successifs. Le résultat a une valeur inférieure à 1 mais supérieure ou égale à zéro. 
Quelle que soit la valeur initiale indiquée, la même série de nombres aléatoires est générée à 
chaque appel de la fonction Rna, car cette dernière réutilise le nombre aléatoire précédent comme 
valeur initiale pour le calcul du nombre suivant. 


Argument N Résultat généré par la fonction Rnd 


Même nombre à chaque fois, en utilisant l'argument N 
comme valeur initiale. 


Inférieur à zéro 


Supérieur à zéro Nombre aléatoire suivant dans la série. 
Égal à zéro Dernier nombre aléatoire généré. 
Omis Nombre aléatoire suivant dans la série. 


Avant d'appeler Rna, utilisez l'instruction Randomize sans argument pour initialiser le générateur 
de nombres aléatoires à partir d'une valeur initiale tirée de l'horloge système. 

Pour générer des entiers aléatoires compris entre a et b, utilisez la formule ci-dessous : 
Int((b-a + 1) * Rnd + a) 

Pour obtenir plusieurs fois les mêmes séries de nombres aléatoires, appelez Rnd avec un 
argument négatif juste avant d'utiliser Randomize avec un argument numérique. L'utilisation de 
Randomize en répétant pour l'argument N la valeur précédente ne permet pas de reproduire une 
série de nombres. 

Int et Fix 

renvoient la partie entière de leur argument. La différence est que pour un argument négatif (par 
exemple -4.5), int renvoie l'entier immédiatement inférieur ou égal (-5), alors que six et Cint 
renvoient l'entier immédiatement supérieur ou égal (-4). 

Round 


Renvoie son 1*' argument arrondi au nombre de décimales donné par son 2* argument. 
Round(2.32,1) donne 2,3 ; Round(2.35,1) donne 2, 4. Pour un négatif, le résultat est 
l'opposé de la valeur absolue arrondie : Roung (-2.32,1) donne -2,3 ; Round (-2.35,1) 
donne -2, 4. 


Fonctions d'information 
Error 
Message d'erreur correspondant au numéro en argument. 
IsArray 
Indique si l'argument est un tableau. 
IsDate 
Indique si l'argument est une date. 
IsEmpty 


Indique si l'argument n'a pas été initialisé. 


oft — VBA pour Excel vi 


PARTAGE DE FONCTIONS ENTRE FEUILLES DE 
CALCUL ET VBA 


IsError 

Indique si l'argument est une valeur d'erreur. 

IsMissing 

Indique si un argument facultatif d'une routine est absent. 
IsNull 

Indique si l'argument est une donnée non valide. 
IsNumeric 

Indique si l'argument est numérique (peut étre converti en nombre). 
IsObject 

Indique si l'argument est un objet. 

TypeName 

Renvoie le type de l'argument. 

VarType 

Renvoie le sous-type de l'argument. 


Fonctions d interaction 
R = Shell(<désign. fich.» [,<état fenêtre>]) 
fait exécuter le fichier exécutable dont on donne la désignation ; état fenétre> agit suivant : 


Constante symbolique Valeur Effet 
vbHide 0 La fenêtre est masquée et activée. 
La fenêtre est activée et rétablie à sa taille et à 
vbNormalFocus 1 aa nee 
sa position d'origine. 
T - La fenétre est affichée sous forme d'icóne et 
vbMinimizedFocus 2 ap 
activée. 
vbMaximizedFocus 3 La fenétre est agrandie et activée. 
———MÓÓÁRÓ€ 4 la fenetre est rétablie à si taille et à sa position 
les plus récentes. La fenêtre active reste active. 
shiininisodtéféens 6 La fenêtre est affichée sous forme d'icóne. La 
fenêtre active reste active. 
EX.:R = Shell ("C:\WLNDOWS\CALC.EXE", 1) appelle la calculatrice. 


Evaluate (<chaine>) 

transforme une chaîne en objet. Ainsi, si dans la cellule active, on a les coordonnées d'une plage 
(ex. A12:A20), pour avoir la somme de la plage, on écrit : 
WorksheetFunction.Sum(Evaluate (ActiveCell.Value)). 
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GESTION DES DATES 


REPRÉSENTATION INTERNE DES DATES 
Une date-heure est stockée sous forme d'un nombre réel dont la partie entière représente la date 
(nombre de jours écoulés depuis le 1° janvier 1900 — on est actuellement dans les 42000) et la 
partie fractionnaire représente l'heure (xxx,00 est 0 heure, xxx,5 est le même jour à midi, etc.). 
Ce nombre s'appelle « numéro de série ». 


METTRE UNE DATE DANS UNE CELLULE 

On manipule souvent les dates sous forme de chaines de caractères. Avec les variables dDatactet 
cDatact censées représenter la date actuelle respectivement en date et en chaîne de caractères, et 
sachant que la fonction Date donne la date actuelle système, on écrira : 

Dim dDatact As Date, cDatact As String 

dDatact-Date 

cDatact- CStr (dDatact) 


et on pourrait écrire dDatact-CDate (cDatact) 

Pour avoir un contróle plus complet de la chaine, on écrit : 
cDatact=Format (dDatact, "dd/mm/yyyy") 
(Remarquez les d — day et y — year : on parle anglais !). 


Ce n'est pas la seule difficulté que la langue nous pose ! Si on écrit : 

Range ("A2") .Value=dDatact 

pour certaines dates, on risque d'avoir inversion du mois et du jour. Pour l'éviter : utilisez la 
séquence : 

Range ("A2") .NumberFormat="@" 'Cn formate en texte 

Range ("A2") .Value=dDatact 


ou utilisez Formularocal (Formula donnerait inversion) : 
Range ("A2") .FormulaLocal=dDatact 


INSTRUCTIONS DE FIXATION DE LA DATE ET DE L'HEURE 
Date = <date> 
fixe la date système à la valeur indiquée par <date> qui peut être une chaîne de caractères 
comme "12/11/15" ou un littéral date comme #12/11/15#. Le mois peut être en nom, l'année 
peut être en quatre chiffres au cas où il y aurait un bogue de l'an 3000. 
Time - «heure» 
fixe l'heure système à la valeur «heure» qui peut être une chaîne de caractères comme 
"14:45:10" ou un littéral comme #14:45:10#. Les secondes peuvent être absentes ainsi que leur 
«:» ; on peut terminer par AM ou PM. 


FONCTIONS DE BASE 
Date sans argument est la date système actuelle. C'est un variant date. Utiliser cSt r, ou mieux, 
Format pour obtenir une chaîne. 
Time sans argument est l'heure système actuelle. C'est un variant date à convertir éventuel- 
lement. Rappelons que dans le format, les minutes doivent être représentées par nn puisque le m 
est réservé au mois : Format (Time, "Ah:nn") OU Format (Time,"hh"" h ""nn") 
Now sans argument est l'ensemble des deux précédents, c'est-à-dire la date-heure. C'est un 
variant date dont la conversion en chaine pourrait être 12/11/2015 16:13:10. 


Timer sans argument donne le nombre de secondes écoulées depuis minuit (au centième prés sur 
PC Windows). 
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AUTRES FONCTIONS 


Conversions 
CDate 
convertit son argument en date. 
DateValue 
convertit son argument chaîne en date. 
TimeValue 
convertit son argument chaîne en valeur heure. 
Dans tous les cas, lorsqu'on a une date, il faut convertir en nombre pour avoir la valeur date heure 
Série: CSng (TimeValue("12:90")) donne 0,5. 
DateSerial (a,m,j) 
donne la valeur date correspondant a l’année a, mois m et jour j. 
TimeSerial (h,m,s) 
donne la valeur heure (de 0,00 à 0,99) correspondant à l'heure h, la minute m et la seconde s. 


Extractions de parties de date 
L'argument des fonctions suivantes est une date. 


Day 

fournit le jour (de 1 à 31). 

Hour 

renvoie l'heure (de 0 à 23). 

Minute 

renvoie la minute (de 0 à 59). 

Month 

renvoie le mois (de 1 à 12). 

Second 

renvoie la seconde (de 0 à 59). 

Weekday 

fournit le jour de semaine de 1 (dimanche) à 7 (samedi). Il y a un 2° argument facultatif qui 
spécifie le 1% jour de semaine : vbMonda y spécifie lundi, etc. 


WeekdayName 

donne le nom du jour. Le 1* argument est le numéro de 1 à 7. Le 2° argument facultatif est 
comme ci-dessus. Si d est votre date de naissance, WeekdayName (weekday (d) ) vous dit quel 
jour c'était. 

Year 

fournit l’année. Year (Date) donne par exemple 2013. 

DatePart(p,d) 

fournit la partie voulue de la date d (Date pour la date actuelle, Time pour l'heure actuelle). p est 
une chaîne qui spécifie la partie voulue : 
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Pour une date : Pour une heure : 
"yyyy" Année 

"q" Trimestre "h" Heure 

"m" Mois "n" Minute 

"y Jour de l'année "o Seconde 
"gi" Jour 

"w" Jour de la semaine 


"ww" Semaine 


Calculs de date 
DateAdd (p,n,d) 
fournit la date correspondant à d (expression date ou chaine) à laquelle on ajoute n (qui peut étre 
négatif) périodes de type spécifié par p selon le tableau précédent. 
DateAda ("m",-3,"15/2/2004") donne 15/11/2003. 
DateDiff(p,d1,d2) 
fournit le nombre de périodes de type spécifiées par p selon le tableau ci-dessus, écoulées entre 
les dates d1 et d2. 
DateDiff ("q","15/2/2003","19/10/2005") donne 11 (nombre de trimestres) 
DateDiff("d","15/2/2004","15/3/2004") et CDate ("15/3/2004") - 
CDate ("15/2/2004") sont équivalents (nombre de jours entre deux dates). 
Les fonctions batsbart, DateAdd et bateri*t admettent deux arguments facultatifs : 
firstdayofweek qui précise le 1% jour de la semaine (ex. vbMonda y, défaut dimanche) et 
firstweekofyear qui précise comment choisir la 1€ semaine de l'année (défaut : celle du 1* 
janvier). vbFi rst FourDays fait commencer par la première semaine comportant au moins 
quatre jours dans l'année nouvelle. vbFirstrFul:Week fait commencer par la première semaine 
compléte de l'année. 
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Le programmeur peut définir ses propres types de données. Un tel type représente un ensemble 
de plusieurs éléments-données : cela convient spécialement pour l'enregistrement dans une base 
de données. On écrit : 
Type <nom type> 

<élément1> As <type 1> 

<élément2> As <type 2> 


End Type 

OÙ «nom type», «nom élémentl», etc. obéissent aux règles habituelles des noms de variables, 
«type 1>,<type 2», etc. sont des types classiques. La déclaration d'un type personnalisé doit 
étre globale (en téte de module). On fait ensuite Dim «nom var» As «nom type» eton 
accède à un élément par «nom var».«élémentl». 


Exemple : pour remplir les premières colonnes de la ligne L d'une feuille avec les données d'un 
client : 
Type Données Client 
Nom As String 
Prénom As String 
Chiffre Affaires As Single 
Ajour As Boolean 
End Type 


Dim Client As Données Client 
Cells(L,l).Value-Client.Nom 
Cells(L,2).Value-Client.Prénom 
Cells(L,3).Value-Client.Chiffre Affaires 
CellsíL,4).Value-Client.Ajour e 
La forme étant celle des désignations d'objets, la structure With est très commode : 
With Client 

.Nom = Cells(2, 1) 

.Frénom = Cells(2, 2) 

.Chiffre Affaires = Cells(2, 3) 

.Ajour - Cells(2, 4) 
End With 


DICTIONNAIRE 


Un dictionnaire est un ensemble de couples nom (ou clé), valeur (ou élément). Nous traitons par 
exemple les notes d'un ensemble d'étudiants : 


Dim Notes As Object 

Set Notes-CreateObject("Scripting.Dicticnary" 

Notes.Add "Andréani", 15 "Ajout/création d'un élément 
Notes.Add "Dupont", 13 

Notes.Add "Durand", "Absent" 

MsgBox Notes ("Dupont") "Utilisation comme mémoire 
Notes ("Durand") =12 ‘associative 

Notes .Key ("Dupont")= "Dupond" "Rectification d’une clé 
Notes.Remove "Einstein" "Suppression d’un élément 
Notes.RemoveAll 'Vidage du dictionnaire 
Set Notes-Nothing "Libération de la mémoire 
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Un tableau dynamique est un tableau qui change de dimension au cours de l'exécution du 
programme. Si toutes les dimensions sont susceptibles de varier, il faut traiter la variable comme 
variant, ce qui permet toutes les variations. 


DECLARATION REDIM 
Si le tableau est à une dimension ou si seule une dimension varie (il faut alors que ce soit la 
dernière), on peut utiliser ce qu'on appelle un tableau de taille variable. Raisonnons sur une seule 
dimension car c'est le cas dans 99 % des traitements. On écrit par exemple : 
Dim TabVar() As Single puis un peu plus loin: ReDim TabVar («dimension») 
où «dimension peut être une constante ou une expression arithmétique. 
Lorsqu'un tableau est de dimensions variables, il y a lieu d'utiliser les fonctions LBound (VarTab) 
et UBound (Var''ab) qui donnent respectivement les bornes inférieure et supérieure de l'indice de 
VarTab. 


PRESERVE 


Le probléme est que si on redimensionne le tableau, les données sont perdues. Si on accompagne 
le ReDim de Preserve, les données seront conservées à condition que le redimensionnement 
augmente la dimension. S'il y a diminution, il y a irrémédiablement perte des données. On écrit par 
exemple : ReDim Preserve TabVar (UBound (TabVar) +50) 


Exemple : On a une série de mots dans la colonne 1 de la feuille active. On veut constituer le 
tableau VarMots des mots sans doublons ; on lui attribue de la mémoire par blocs de 10 valeurs 
à mesure des besoins : 


Sub mots () 
Dim VarMots() As String 
Dim L As Integer, N As Integer, NMots As Integer, Mot As String, 
tr As Boolean 
ReDim VarMots(10) ' lre attribution, pas besoin de Preserve 
NMots = 0 
For L = 2 To 1000 
If IsEmpty(Cells(L, 1)) Then Exit For 
Mot = Cells(L, 1) .Value 


tr = False 
If NMots > 0 Then 
For N = 1 To NMots 
If Mot = VarMots(N) Then tr = True: Exit For 
Next N 
End If 


If Not tr Then 
NMots = NMots + 1 
If NMots > UBound(VarMots) Then ReDim Preserve 
VarMots (UBound(VarMots) + 10) 
VarMots (NMots) = Mot 
End If 
Next L 
For N = 1 To NMots 
Cells (N+1, 4) .Value = VarMots (N) 
Next N 
End Sub 
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MANIPULATIONS EN BLOC DE FICHIERS OU RÉPERTOIRES 
ChDir <rep> 
change de répertoire actif. ChDir "C:\Excel". 
ChDrive <d> 
change d'unité active.  ChDrive "C". 
MkDir <rep> 
Crée un nouveau répertoire, sous-répertoire du répertoire courant si <rep> ne fournit pas le 
chemin complet: MkDir "C:\Excel" 
RmDir <rep> 
Supprime le répertoire indiqué. Il faut qu'il soit vide. 
CurDir[(<d>)] 
Renvoie le répertoire courant du disque <a>, du disque courant si <a> est absent. 
Name <ancien> As <nouveau> 
Renomme le fichier ou le répertoire indiqué. Pour un fichier, si le nouveau répertoire est différent, 


le fichier est déplacé puis renommé. 
Name "C:\ANCREP\ANCFICH" As "C:\NOUVREP\NOUVFICH" 


FileCopy <ancien>,<nouveau> 

Copie le fichier indiqué : la copie doit avoir un nom différent si le répertoire nouveau est le même. 
FileDateTime («fichier») 

Fournit les dates et heure de dernière modification du fichier indiqué (avec disque et répertoire). 
FileLen («fichier») 

Donne la longueur en octets (type Long) du fichier indiqué. 

GetAttr («nom») 

donne le type du fichier ou répertoire indiqué. On obtient : 


Constante Valeur Description 

vbNormal 0 Normal 

vbReadOnly 1 Lecture seule 

vbHidden 2 Caché 

vbSystem 4 Système. Non disponible sur Macintosh. 

vhDirecrory 16 Répertoire ou dossier 

vbArchive 32 Fichier modifié depuis la derniére 
sauvegarde 


On obtient la somme des valeurs s'il y a plusieurs attributs. 

SetAttr <nom>,<attributs> 

Impose les «attributs» au fichier ou répertoire indiqué. <attributs> est la somme des 
valeurs correspondant aux attributs souhaités prises dans le tableau ci-dessus. 

Kill <fichier(s)> 

Supprime le(s) fichier(s) indiqué(s). On peut indiquer disque et répertoire. On peut utiliser des 
caractères jokers, donc prudence! Kill "*.txt" 

Dir[ (<nom>[, (<attributs>])] 

est la fonction la plus intéressante. Elle fournit une chaine de caractéres qui est le nom du premier 
fichier/répertoire compatible avec le <nom> (il peut y avoir des caractéres jokers) et avec 
<attributs> (valeur somme comme ci-dessus). Ensuite, des appels Dir sans arguments 
donnent les fichiers suivants. Le résultat est chaine vide s'il n'y a pas/plus de fichier compatible. 
Dir("C:\Excel\Classeurc.xlsx") dit si le fichier existe dans le répertoire : si oui, on 
obtient la chaine de caractère "Cla ", Sinon chaîne vide. 
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Attention, <attributs> indique les attributs qu'on acceptera ; les fichiers « normaux » sont 
toujours obtenus. Exemple : imprimer dans la fenêtre d'exécution tous les sous-répertoires d'un 
répertoire ; on obtiendra aussi les répertoires . et.. : 


Sub Sousrep() 
Dim x As String, c As String 

NiGE sore in 

x = Dir(c, vbDirectory) 

While x <> "" 
If GetAttr(c * x) And vbDirectory Then Debug.Print x 
x = Dir 


c 


Wenga 
End Sub 


ACTIONS A L'INTERIEUR DES FICHIERS 


Numéro de fichier 
L'écriture ou la lecture d'un fichier se fait en trois phases. La phase médiane est répétitive : c'est 
l'écriture ou la lecture des différents blocs de données par des instructions Input ou Print (et 
variantes). Dans toutes ces instructions, le fichier est représenté par un numéro (survivance du 
« numéro logique » des anciens langages). Le numéro figure sous forme d'une constante ou d'une 
variable. La phase initiale revient à établir la correspondance entre le numéro et le nom (disque et 
répertoire) du fichier tel que le système d'exploitation le connait. Cette phase s'appelle 
l'ouverture : en complément, elle indique si on veut lire ou écrire et ce, de quelle manière. La 
phase finale est l'instruction de fermeture ; elle est indispensable : elle termine les opérations sur 
le fichier et elle libére le numéro. On obéit donc au schéma : 
Ouverture Open «disque, répertoire, nom» For «opération» As # «n^» 
Lectures [Line] Input # <n°>, «variable» 
et/ou 
Écritures Print Write # <n°>, <variable> 
Fermeture Close <n°> 


Il y a en plus quelques instructions et fonctions auxiliaires. 


Ouverture 
Open <desfich> For «opération» [<restr>] As # «n?» [Len=<longueur>] 
«destich» est le nom complet du fichier (avec disque et répertoire). C'est une chaine de 
caractères, qui peut être un littéral, une variable ou même une expression. <opération> peut 
être Append (ajout de données à la fin), Binary (mode binaire — nous ne l'utilisons pas dans ce 
livre), Input (entrée : lecture), Output (sortie : écriture) ou Random (accès direct : lecture/ 
écriture — cas par défaut si la clause est absente). «n?» est le numéro utilisé dans les autres 
instructions. <longueur> est la longueur d'enregistrement : elle n'est à spécifier que dans le cas 
de l'accès direct. 
Il y a en plus les éléments facultatifs [Access <accès>] où <accès> peut être Read, Write 
ou Read Write : cette clause n’ajoute rien par rapport à For <opération> et un mot-clé qui 
impose des restrictions d'usage pour un fichier ouvert par un autre processus : c'est un peu trop 
pointu pour nous. 
Selon l'opération, le comportement est différent et différentes erreurs peuvent se produire : 
Input : il faut que le fichier existe et on se positionne au début. 


Append : il faut que le fichier existe et on se positionne à la fin. 
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Output : Si le fichier n'existe pas, il est créé ; sil existe un fichier de même nom, même 
répertoire, l'ancien sera écrasé. 

Random : permet l'accès direct ; chaque ordre de lecture/écriture peut préciser le numéro d'enre- 
gistrement concerné donc la question du positionnement initial ne se pose pas. 

Le «n?» attribué est arbitraire sauf qu'il ne faut pas prendre un numéro déjà en cours d'utilisation 
(ou alors, il faut fermer le fichier concemé). Vous pouvez utiliser la fonction FreeFile (sans 
argument) qui donne le prochain numéro de fichier disponible. Nous conseillons plutót de bien 
planifier les numéros qu'on a l'intention d'utiliser. 


Les lectures/écritures 
Ces instructions marchent par couples car ce qu'on écrit devra étre relu plus tard. 
Nous vous renvoyons à l'aide pour le couple Get, Put et l'instruction Seek qui sont plutôt 
adaptées à l'accès direct et nous nous bornons à l'accès séquentiel. 
<variable chaine>=Input (<nb>, #<n°>) 
transfére dans la variable <nb> caractéres lus sur le fichier de numéro indiqué a partir de la 
position où a laissé la lecture précédente. Si <nb>=1, on analyse le fichier caractère par caractère. 
Exemple : X=Input (1, #NF) 
À partir de maintenant, nous supposons l'accès séquentiel, donc toutes les opérations s'effectuent 
à la position où on est, là où a laissé l'opération précédente. 


Couple Write #, Input # 
Write #<n°>, <varl>[,<var2>..] 
écrit sur le fichier <n°> les variables <var1>, <var2>, etc. et termine par un fin de paragra- 
phe/saut de ligne (chr(13)+chr(10)). Entre chaque donnée, Write # inscrit une virgule sur le 
fichier de sorte que la lecture par Input # sera évidente ; les données sont formatées 
conformément à leur type, notamment les chaînes sont incluses entre ". 
Input # <n°>, «varl»[,«var2»..] 
lit sur le fichier «n^» les données et les transfère dans les variables <var1>, <var2>, etc. On 
reconnait la fin d'une variable à la virgule ou fin de paragraphe ; la donnée trouvée doit être de 
type compatible à la variable attendue et on ne doit pas tomber sur la fin de fichier alors qu'on 
attend encore des données. En fait, tout se passe bien à condition que la liste de variables de 
‘Input # soit la même que celle du Write + correspondant. 


Couple Print #, Line Input # 
Line Input #<n°>, <varchaine> 
lit les caractères trouvés sur le fichier jusqu'au premier chr(13) rencontré et les transfère dans la 
variable. C'est parfait pour un fichier texte structuré en lignes. 
Print #<n°>, <expressions> [;] 
écrit les valeurs des expressions sur le fichier <n°>. Si le ; est absent, on inscrit un retour 
chariot/saut de ligne, s'il est présent, on ne le fait pas. Nous conseillons d'utiliser la forme Print 
#<n°>, <varchaine>+vbCr; OÙ <varchaine> ne contient pas de retour chariot : elle 
forme un couple parfait avec le Line Input # ci-dessus. 
Width # <n°>, <largeur> 
fixe à <largeur> la largeur maximale de ligne du fichier <n°>. Une série de Print # 
<n°>,.. ; remplira les lignes et insérera automatiquement un retour chariot aprés <largeur> 
caractères ; la dernière ligne sera incomplète. Essayez : 
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Dim Rep as string, i As Integer, x As String 
Sub Ecrit () 
Rep = ThisWorkbook.Path + Application.PathSeparator 
Open Rep + "el.txt" For Output As #1 
Width # 1, 3 
For i = 0 To 9 
Print # 1, Chr(48 + i); 
Next i 
Close #1 
End Sub 
Sub Lit () 
Open Rep + "el.txt" For Input As #1 
Do 
Line Input # 1, x 
Debug.Print x + "I" 
Loop Until EOF(1) 
Close #1 
End Sub 


Le contenu de la fenêtre Exécution montre que Width # n'est pas la solution pour avoir des 
lignes de largeur constante complétées par des espaces s'il y a lieu. Solution au chapitre 9. 


Problème de la fin de fichier 
Si on cherche à lire au-delà de la fin de fichier, une erreur est déclenchée. La fonction : 
EOF (<n°>) 
est True si la fin de fichier est atteinte de sorte que le schéma de lecture générale d'un fichier est 
celui de la procédure Lit ci-dessus. Autre exemple au chapitre 9. 


Fermeture 
Close #<n°> 
ferme le fichier et libere le <n °> pour une autre ouverture (du même fichier ou d'un autre). 
L'opération de fermeture est indispensable (pour libérer le <n° >), mais elle est encore plus 
indispensable en écriture car elle écrit les derniéres données. 


Fonctions auxiliaires 
FileAttr(<n°>,1) 
fournit le mode d'ouverture du fichier : 1 (Input), 2 (Output), 4 (Random), 8 (Append), 
32 (Binary). Le 2° argument n'a maintenant de sens qu'avec la valeur 1. 
Loc (<n°>) 
donne la position où on en est sur le fichier (n° d'enregistrement pour Random). 
LOF (<n°>) 
donne la longueur du fichier ouvert de numéro indiqué (il faut qu'il soit ouvert pour avoir un 
numéro ; pour un fichier fermé, utiliser FileLen). 
Lock <n°>,<zone> 
où «zone» est soit un numéro d'enregistrement, soit un intervalle «m» To «n» verrouille les 
enregistrements indiqués du fichier vis-à-vis d’autres processus. Unlock avec les mêmes valeurs 
libère ces enregistrements. 
BOF (<n°>) 
est True si on est au début du fichier, donc si on vient de l'ouvrir. Si zcr et BOF sont vraies 
toutes les deux, c'est que le fichier existe, mais est vide, donc n'a subi aucune écriture. 
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ACCÉDER AUX DONNÉES D'UN AUTRE CLASSEUR 
Un programme dans un certain classeur peut accéder à des données situées dans d'autres 
classeurs ou aussi faire des modifications dans ces classeurs. Le seul impératif est que les autres 
classeurs soient ouverts puisque la désignation d’une donnée dans un autre classeur doit être 
préfixée par Workbooks ("nom classeur.x1sx"). Or la collection Workbooks ne contient que 
les classeurs ouverts donc en mémoire : on se demande comment elle pourrait « avoir 
connaissance » des classeurs non ouverts présents sur le disque. 


En fait, il y a au chapitre 9 un exemple d'astuce pour accéder à un classeur non ouvert, mais c'est 
trés marginal, et nous ne nous en occupons pas ici. 

La clé de cette possibilité d'accéder à d'autres classeurs, qui ouvre la voie au respect du principe 
de séparation programme-données, est l'instruction d'ouverture d'un classeur vue au chapitre 5. 
Noter que le classeur qu'on vient d'ouvrir devient le classeur actif, ActiveWorkbook. Le classeur- 
programme est 7hisWorkbook 


Test de l'ouverture 


La commande open donne une erreur si le classeur est déjà ouvert. Ayant les variables Chem 
(chemin d'accès), NomC1 (nom du classeur) et la fonction Cuvert (vraie si le classeur est ouvert, 
donnée au chapitre 9), si on veut que w désigne le classeur, on écrit : 

If Not Ouvert(NomCl) Then Set W-Workbooks.Open(Filename:-Chem-*NomC!) 


Le probléme est que sil y a ouverture, le classeur concerné sera actif, mais pas s'il n'y a pas 
ouverture et W n'aura pas la valeur souhaitée. La séquence suivante a les deux cas équivalents : 
If Not Ouvert(NomCl) Then Workbooks.Open Filename:=Chem+NomCl 

Workbooks (NomCl).Activate 

Set W-ActiveWorkbook 


APPELER DES ROUTINES DANS D'AUTRES CLASSEURS 


Il est trés facile d'utiliser une procédure ou fonction venant d'un autre classeur. Depuis une feuille 
Excel, la BDi page 27 permet de chercher la macro à exécuter dans tous les classeurs ouverts. De 
méme, pour implanter une fonction dans une cellule, avec le choix de la catégorie Personnalisée 
dans la BDi du bouton m la liste propose toutes les fonctions de tous les classeurs ouverts. 


Par programme, on écrit : 
Application.Run "nom du classeur.xlsm!nom procécure"[,arguments] 


Pour une fonction, on écrit : 
Application.Run ("nom du classeur.xlsm!nom fonction"[,arguments]) 


CLASSEUR DE MACROS COMPLÉMENTAIRES 
Pour créer un dasseur de macros complémentaires : 
m Créez un classeur avec les macros voulues et pas de données. 
m Enregistrez normalement en .x/sm. 


wm © Fichier — Enregistrer sous — Autres formats et, dans la boite de dialogue, choisir le type 
Macro complémentaire (.xlam). Nous avez aussi le choix Macro complémentaire Excel 97-2003 
(xla) pour créer un fichier compatible avec les versions 2003 et précédentes. 


Pour l'utiliser sous Excel, il faut l'installer : 
a ( Fichier Options - Compléments 
[] lAtteindre, le nom (sans extension) doit figurer dans la liste ; cochez sa case puis DK 


versions 2019 et Office 365 


Événements et 
objets spéciaux 


BDi dynamiques 
Objet Scripting.FileSystem Object 
Événements au niveau application 
Gestion du temps 
Événements clavier 
Pilotage à distance d'une application 


Modules de classe — Programmation objet 
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On dit qu'une BDi est dynamique lorsqu'elle varie au cours de son usage. Les changements 
peuvent être de simples changements de légende (par exemple un bouton qui change de rôle) ou 
d'état activé (bouton inactivé tant qu'une condition n'est pas réalisée, contrôle d'entrée désactivé 
quand on n'a pas besoin de sa donnée). 

Plus spectaculaire comme modification, on peut avoir deux ensembles de contróles implantés dans 
la même zone de la BDi et tels que à certains moments, les contrôles du 1% ensemble ont 
Enabled et Visible "rue, les autres ayant alse, et à d'autres moments, on inverse. 

Une autre possibilité est qu'on peut créer un contróle par programme. Exemple : 

Dim tb As Control 

Set tb = Controls.Add("Forms.TextBox.1", "TextBoxl", True) 

tb.Left - 30 

tb.Top - 60 

tb.Text = "." 

Dans la méthode Ada, le 1* argument spécifie le type (tel que nommé au chapitre 6) entouré de 
Forms. et .1 (tel que), le 2€ est le nom (Name) du contrôle (veillez à ne pas prendre un nom déjà 
utilisé !) et Truc veut dire qu'on veut que le contrôle soit visible. Nous ne sommes pas très 
favorables à cette technique : la précédente est aussi efficace, et, si un contróle est créé à 
l'exécution, une référence à ses propriétés s'écrit par exemple Me!lextBoxl.lext (!letnon.). 


BDI EN DEUX PARTIES 
On peut avoir un bouton Détail tel que si l'on clique, il apparait une 2? partie de la BDi avec ses 
contrôles et le texte du bouton devient "Réduire". Voici sa routine de clic : 


Private Sub CommandButton2 Click() 
If Me.Height » 120 Then 


CommandButton2.Caption - "Détails" 
Me.Height - 120 
Else 
CommandButton2.Caption - "Réduire" 
Me.Height - 200 
End If 
End Sub 
MULTIPAGE 


Un MultiPage s'utilise sans aucun probléme : VBA se charge de tout. Nous suggérons d'implanter 
le multipage dans la partie haute de la BDi, une petite zone dans le bas restant hors du multipage 
et étant réservée au(x) bouton(s) de validation. 

Le MultiPage a deux pages au départ. Pour ajouter une page : clic droit sur un onglet, puis sur 
Ajouter une page. Pour renommer une page, clic droit sur l'onglet à renommer ; une BDi permet 
de spécifier le nouveau nom, une touche rapide (inutile puisque l'utilisateur arrive à la page qu'il 
veut par simple clic) et une infobulle attachée à la page. Pour supprimer une page, clic droit sur 
son onglet et Supprimer. 

À l'exécution, l'utilisateur peut aller et venir à son gré d'une page à l'autre et renseigner les 
contróles voulus. Les contróles sont désignés par leur nom, sans devoir préfixer par la désignation 
de MultiPage et de page. On peut ajouter des pages par programme, mais nous recommandons 
plutót de créer toutes les pages à la création. 
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OBJET SCRIPTING.FILESYSTEMOBJECT 


MANIPULATIONS DE FICHIERS EN BLOC 
L'objet Scripting.FileSystemObject offre pour manipuler les fichiers une alternative aux 
instructions vues au chapitre 7. On crée une variable objet par 
Set FS-CreateObject ("Scripting.FileSystemObject") . Cela étant, la méthode 
FS.GetFolder («chemin») renvoie l'objet répertoire indiqué qui a la collection Files de ses 
fichiers et la collection sub¥olders de ses sous-répertoires. 


La séquence suivante liste les fichiers et les sous-répertoires d'un répertoire. Les deux dernières 
instructions indiquent l'existence d'un fichier et d'un répertoire. On suppose que vous avez créé le 
répertoire Tsoft et les fichiers voulus. 
Dim FS As Object, Rep As Object, ssRep As Cbject, Fich As Object 
Set FS = CreateObject("Scripting.FileSystemObject") 
Set Rep = FS.GetFolder ("C:\Tsoft") 
For Each Fich In Rep.Files 
Debug.Print Fich.Name 
Next 
For Each ssRep In Rep.subFolders 
Debug.Print ssRep.Name & ssRep.Size 
Next 
Debug.Print FS.FileExists ("C:\Tsoft\xx.pdf") 
Debug. Print FS.FolderExists ("C:\Tsoft") 


Comme propriétés des fichiers et répertoires, citons : Path (chemin d'acces), Name (nom seul), 
Drive (disque), Size (taille), ParentFolcer (dossier parent), Attributes et Type (Dossier 
ou Feuille Excel ou document Word, etc.). 

FS.Drives est la collection des disques. FS .GetExtensionName («fich») obtient l'extension, 
FS.GetParentFolderName («fich») obtient le nom du répertoire parent. On cite les 
méthodes CreateFolder, DeleteFolder, DeleteFile, CopyFile, CopyFolder.... 


MANIPULATIONS DE DONNÉES DANS DES FICHIERS TEXTE 
Set Fich-FS.CreateTextFile ("<nom>",x, y) : crée un fichier, <nom> est le nom complet, 
x False empêche l'écrasement si le fichier existe déjà, y False (=ASCII), y True (=UNICODE). 
Set Fich=FS.O0penTextFile ("nom",o,p) : ouvre un fichier, o vaut 1 pour lire, 2 pour écrire, 
8 pour ajouter ; si p est True, on crée le fichier sil n'existe pas. 
Fich.AtEndCfLine est True en fin de ligne, Fich.AtEndOfStream est True en fin de 
fichier. Fich . Line est le numéro de ligne en cours, Fich.Column est le numéro de col. 


c-Fich.ReadLine lit une ligne, c- Fi ch. Read («n») lit caractères. 
Fich.Write "texte" écrittexte, Fich.WriteLine "texte" écrittexte et va à la ligne. 
N'oubliez pas de fermer par Fich.Close et de faire Set ..-Nothing pour les variables objets 
devenues inutiles. Ci-dessous, on recopie dans la fenétre exécution le contenu du fichier texte 
indiqué : 

Dim FS As Object, Fich As Object 

Set FS = CreateObject("Scripring.FileSystemObject") 

Set Fich = FS.OpenTextFile("C:\Tsoft\essl.txt", 1, False) 

While Not Fich.AtEndOfStream 

Debug.Print Fich.ReadLine 

Wend 

Fich.Close 

Set FS = Nothing 

Set Fich - Nothing 
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ÉVÉNEMENTS AU NIVEAU APPLICATION 


Un certain nombre d'événements sont définis au niveau Application (liste en annexe : « Principaux 
objets de classeur », événements, Application). Certains événements font double emploi avec 
un événement de niveau inférieur (classeur ou feuille) : WorkbookActivate avec Activate 
d'un classeur ; SheetChange avec Change d'une Worksheet. La raison d'utiliser l'événement au 
niveau Application est qu'au niveau inférieur il faut foumir une routine pour chaque classeur ou 
feuille qui risque d'être concemé, alors qu'au niveau Application, il n'y a qu'une routine à écrire. Il 
y a deux cas : soit il faut créer un module de classe, soit on peut s'en dispenser. 


AVEC UN MODULE DE CLASSE 
Pour les événements au niveau classeur ou feuille, on dispose d'un module associé à l'objet dans 
Microsoft Excel Objects : il est tout prêt à recevoir les procédures événementielles concernées. 1l 
n'y en a pas pour le niveau Application ; il faut donc en créer un : 
wm Faites Znsertion — Module de classe donnez un nom (propriété Name dans la fenêtre de 
Propriétés). Exemple : EvtAppli 
m Dans ce module, créez un objet Application par exemple : 
Public WithEvents MonApp As Application 
m L'objet MonApp devient disponible dans la liste déroulante de gauche ; une fois sélectionné, 
choisissez (par exemple) WorkbookNewSheet dans la liste de droite : 
Public WithEvents MonApp As Application 
Private Sub MonApp WorkbookNewSheet(ByVal Wb As Workbook, ByVal _ 
Sh As Object) 
Sn.Name = InputBox("Nom de la feuille ? ") 
End Sub 
= Pour relier l'objet déclaré dans le module de classe avec l'objet app: ication, écrivez : 
Dim Appli As New EvtAppli 
Sub Init() 


Set Appli.MonApp = Application 
End Sub 


Une fois Init exécutée, à chaque insertion de feuille, le nom à lui attribuer sera demandé. 
Les événements des graphiques incorporés (objets ChartOb jects («n*») .Chart) font 
intervenir le méme mécanisme nécessitant la création d'un module de classe. 


SANS MODULE DE CLASSE 
Pour certains événements de niveau Application les choses sont plus simples : ceux pour lesquels 
existe une méthode On<nom événement» de l'objet Application. Ce sont: OnKey (appui de 
touche), OnTime (se déclenche à un instant défini), OnRepeat (on recommence la dernière 
action) et OnUndo (on annule la demière action). On écrit : 
Application.OnKey "«touche»","«nom procédure»" 
où «touche» est la définition de la combinaison de touches à détecter et «nom procédure» est 
le nom de la procédure événement que vous avez fournie dans un module ordinaire. 
Application.OnKey "«touche»" rétablit la signification normale de la combinaison, 
tandis que Applicaticn.OnKey "<touche>","" désactive la combinaison. 
Application.OnTime <instant>,"<nom procédure" fait démarrer la procédure indiquée à 
l'instant spécifié. On le fournit souvent sous la forme now« délai» ce qui fait déclencher la 
procédure après le délai (exemple : now+TimeValue ("00:00:01") donne un délai d'une 
seconde). Attention, l'attente n'a pas lieu dans cette instruction : on passe immédiatement aux 
instructions qui suivent ; la procédure démarrera à l'instant spécifié en asynchronisme avec la 
routine appelante. Voir application dans la section suivante. 
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GESTION DU TEMPS 


MARQUER UN CERTAIN DÉLAI 


On utilise la fonction Timer qui donne le nombre de secondes écoulées depuis minuit. Voici une 
routine qu'on appelle par Delai (s) qui marque un délai de s (qui peut être <1) secondes : 


Sub Delai(s As Single 
s = Timer + 


Ao 
n 


While Timer 
DoEvents 
Wend 
End Sub 
On appelle la fonction DoEvents dans la boucle pour permettre à Windows de traiter les 
événements qui arrivent. Nous déconseillons l'emploi pour un délai de moins de 0.1 s. 


MESURER LA DURÉE D'UNE SÉQUENCE DE PROGRAMME 
Insérez T=Time r juste avant la séquence et T=-Timer-T juste après : T contiendra la durée de la 
séquence. Ceci peut servir pour comparer l'efficacité de deux méthodes de traitement : on peut 
être amené à incorporer les séquences dans une boucle effectuée 100 fois (ou 10 000 fois ou plus) 
si elles sont trop courtes pour que les temps soient appréciables. 


TRAITEMENTS PÉRIODIQUES 


Soit un traitement que l'on veut effectuer périodiquement. Ci-dessous deux méthodes pour le 
faire (la période est de 1 s, le traitement inscrit 1, 2... dans une colonne de la feuille active) : 


Méthode 1 
Dim L As Integer 
Sub act( 
L = 0 
actionl 
End Sub 
Sub actionl( 
b= Le 
Cells(L, 2).Value = L 
If L < 50 Then 
DoEvents 
Application.OnTime Now + TimeValue("00:00:01"),"actionl" 
End If 
End Sub 
Méthode 2 
Dim L As Integer, ac As Boolean 
Sub act2() 
L=0 
While L<50 
ac = False 
Application.OnTime Now + TimeValue ("00:00:01"), "action2" 
While Not ac 
DoEvents 
Wend 
Wend 
End Sub 
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GESTION DU TEMPS 


Sub action? () 

L-L-*1 

ác = True 

Cells(L, 2).Value - L 
End Sub 


La méthode 1 fait appel à la récursivité : s'il y a trop de périodes, on risque un dépassement de la 
pile. La méthode 2 n'est pas vraiment asynchrone : par le booléen ac, on attend qu'une action soit 
effectuée avant de préparer le lancement de la suivante. 

Une autre méthode serait d'installer un contróle minuterie comme il en existe en VB sans 
application hóte : un tel contróle crée des événements périodiques et l'action est la routine de 
traitement de cet événement. De tels contróles sont en vente sous forme de fichiers .OCX : vous 
pouvez donc les installer en tant que contróles supplémentaires dans la Boite à outils. 
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ÉVÉNEMENTS CLAVIER 


ÉVÉNEMENTS CLAVIER DANS LES CONTRÔLES TEXTE 


Les événements KeyDown, KeyPress et KeyUp se succèdent lorsqu'une touche est appuyée et 
relâchée. KeyDown et KeyUp ont deux arguments : KeyCode, le code de la touche et Shift 
(état des touches AK, Maj et Ctrl, respectivement 1, 2 et 4, ajoutés si plusieurs touches simulta- 
nées). KeyPress n'a que l'argument Ke yAscii, code ASCII du caractère. KeyCode est le méme 
que KeyAscii pour les caractéres « normaux », mais KeyDown reconnait, entre autres, les 
touches de fonction (112 : F1 à 121 : F10). 

Pour le probléme de reconnaitre la fin de frappe dans un contróle texte, si l'on veut se baser sur la 
touche [Entré ou [c |, il faut faire attention aux propriétés MultiLine et EnterKeybehavior : si 
le contróle est multiligne, il est évident que la touche servira à aller à la ligne. En outre, il ne faut 
pas qu'un bouton de validation soit le bouton par défaut, sinon la touche validera la BDi. Ceci 
posé, l'événement XeyPress n'est pas déclenché par la touche [c | : si elle ne fait pas aller à la 
ligne et ne valide pas, elle fait quitter le contrôle et, donc, l'événement n'est pas déclenché. II faut 
donc utiliser KeyDown ; exemple : 


Private Sub TextBoxl_KeyDown (ByVal KeyCode _ 
As MSForms.RerurnInteger, ByVal Shift As Integer) 
If KeyCode = 13 Then MsgBox "Vous avez tapé " + TextBoxl.Text 
End Sub 


ÉVÉNEMENTS CLAVIER AU NIVEAU APPLICATION 


Associer une procédure à une combinaison de touches 
La méthode OnKey permet d'associer une combinaison de touches à une procédure. Cette 
méthode est bien préférable à celle de la BDi (voir page 30) pour deux raisons : 
— on peut utiliser des combinaisons avec Alt, Maj et ctrl, pas seulement avec Eti. 
— on peut rétablir l'ancien rôle de la combinaison si elle était déjà utilisée. 


Pour établir une combinaison 
Application.OnKey «touche»","«nom procédure»" 


Pour rétablir l'ancien róle 
Application.OnKey "«touche»" 


Pour désactiver la combinaison 


Application.OnKey "«touche»","" 


«touche» désigne la combinaison : on commence par + pour fit, ^ pour (tri et + pour Maj ; ces 
signes peuvent se cumuler ; la touche elle-même est représentée par son caractère, 
éventuellement entre accolades, mais en minuscules si c'est une lettre. S'il s'agit d'un caractère 
spécial, utiliser les désignations entre accolades données en annexe « Désignation des touches 
dans SendKeys ». 

Exemple : on pourrait avoir dans la procédure Workbook Open dans le module associé à 
"Sb","Traitement" qui fait déclencher Traitement 


ThisWorkbook : Application.OnKey 


sur [Alf B. 
Tandis que dans Workbook Close, on aurait : 
Application.OnKey "Sh" OU Application.OnKey "S{h}" 


Pour une association à la combinaison Ctrl. Maÿ+|Curseur Haut, on écrirait par exemple : 
Application.OnKey "*+(UF}", "Augmenter" 


Attention : La combinaison ainsi établie n'agit qu'à partir de l'écran Excel, pas VBA. 
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PILOTAGE À DISTANCE D'UNE APPLICATION 


LANCEMENT D'UN PROGRAMME 
Shell ("<chemin><fichier.exe> [<fich. document>]"[,<fenétre>]) 
a pour résultat un numéro d'ordre de tâche et lance le programme indiqué. Si l'argument 
<fenétre> est présent, il indique l'état de la fenêtre dans laquelle le programme va s'activer. On 
spécifie le plus souvent vbNormalFocus. Ona Normal, Maximized ou Minimized et Focus 
ou NoFocus (laisse actif le programme qui l'était). 
AppActivate «n? táche» active la tâche <n°>. 
Le numéro est celui donné par un Shell précédent de sorte que l'on a une meilleure 
synchronisation avec la séquence Shell puis AppActivate. 


SENDKEYS 
Envoie des touches à la tâche active. SendKeys "<touches>"[,True] qui envoie les touches 
indiquées. Le 2€ argument fait attendre qu'elles aient fait effet. On peut aussi ne pas mettre ce 2€ 
argument, mais faire suivre l'appel d'un appel à DoEvents. Les touches caractères interviennent 
en tant que telles. Les caractéres spéciaux sont foumis par des codes entre accolades (tableau 
page 248). On peut foumir des combinaisons avec [Alt, [Maj et [Ctrl représentés respectivement par 
96, ^ et +, ce qui est utile pour piloter le programme puisque de telles combinaisons sont les 
raccourcis des principales commandes. Exemple : 


Dim s 
s = Shell ("notepad.exe C:\Tsoft\x.txt", 1) ' Appelle le bloc- 
AppActivate s " notes sur le fichier x.txt 
SendKeys "Bonjour(ENTER)" ' ajoute Bonjour au début 
DoEvents 
SendKeys "^s" ' sauve le fichier 
DoEvents 
SendKeys "%{F4}" ' quitte le bloc-notes 
DoEvents 

ACTIVATEMICROSOFTAPP 


Application.ActivateMicroscftApp («nom») 
où nom peut être x1MicrosoftWord, x:MicroscftAccess.. active le programme indiqué. 


GESTION PAR OBJETS 
Set ap=CreateGbject ("<nomapp>" 
où «nom» peut être Word. Application, Excel.Application, Word. Document, etc. crée 
une instance de l'application indiquée et la nomme ap. 
GetObject (<désign.fich.>,<classe> 
fonction qui donne l'objet document indiqué de la classe de logiciel indiquée. 
Set ap=GetObject(,"<nomapp>" 
permet de se référer sous le nom ap à l'application précédemment créée. 
Set dd-GetObject ("désign.fich.") 
permettra de se référer sous le nom dd au document indiqué. 
La séquence suivante ajoute du texte dans un fichier Word dw.docx existant. 


Dim wd As Object 

Set wd = GetObject ("C:\Tsoft\dw.docx", "Word. Document") 
wd.Content.InsertAfter Text:="Bonjour" 

wd.Save 

wd.Close 

Set wd = Nothing 
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MODULES DE CLASSE - PROGRAMMATION OBJET 


À part leur utilisation pour permettre l'implantation de routines d'événements, les modules de 
classe servent à implanter des objets propres au programmeur. Nous avons dit que la création de 
tels objets n'est pas cruciale, compte tenu de l'extrême richesse des objets prédéfinis offerts par 
VBA et ses applications hôtes. Nous allons baser leur étude sur un exemple. 


PROCÉDURES PROPERTY 
Un objet a tout d'abord des propriétés. Nous allons créer un objet Voiture : c'est l'exemple qui est 
toujours pris pour expliquer ce qu'est un objet ; ici, nous nous bornons à deux propriétés (nous en 
ajouterons une lors de la prochaine étape) : la couleur et le genre de carrosserie (berline, coupé, 
etc.). Tout d'abord, il faut créer et nommer le module de classe : 

m Faites /nsertíon — Module de classe. 

= Pour le nommer, on dit que ce sera la classe Voiture. Donc, dans la fenêtre de Propriétés, 
imposez le nom voiture à la propriété Name. Nous sommes prêts à taper des instructions 
dans le module de classe. 

- Dans la liste déroulante de gauche, sélectionnez Class. La liste déroulante de droite donne le 
choix entre Inüalize et Terminate. 1l faut au moins fournir une routine Initialize qui 
intervient à chaque création d'objet de la classe et permet d'initialiser l'objet. 

Propriétés - Voiture ESI — : ——— 


ENT 


Private Sub Class Initialize|) 


linstanong 1 -Private 


C'est là qu'un élément important de la programmation objet intervient : on va séparer l'accès aux 
propriétés telles que les connaît l'utilisateur de la façon dont sont réellement gérés les objets. Nos 
propriétés seront tenues respectivement dans les variables car et Teinte. 

Ces variables ne sont accessibles que dans le module de classe, pas dans le module normal 
Module 1 où nous voulons utiliser la voiture. Pour accéder aux données, on va créer des 
procédures Property, qui, elles, seront publiques pour être accessibles depuis Module 1. 

Les procédures Property vont par paires : il y a une Property Get qui permet de lire la 
propriété, et une Property Let (ou Set si la propriété est un objet) qui permet de lui donner 
une valeur. On peut écrire entièrement ces procédures, mais on peut aussi créer leurs en-têtes par 
le procédé qui suit : 

m Faites Insertion — Procédure. Dans la BDi qui apparaît : 


Ajouter une procédure x 


wom [Gl — Ce] 
2 mie | 
C funcion. 


€ gropety 


Portée 


G Puble 
C prigste 


[7 Toutes les variables locales statiques 
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m Cochez © Property et © Public. Les en-tétes des deux procédures de la paire apparaissent ; 
C'est l'un des intérêts de ce procédé : vous n'oublierez pas un des membres de la paire. 

Si vous ne fournissez pas de Property Let ou Set, la propriété est en lecture seule : il n'y aura 

pas moyen de lui donner une valeur directement par «ob jet». «nom»... 

Un autre intérêt d’avoir une procédure, c'est qu'on peut tester la valeur que le programmeur 

cherche à imposer et rejeter les valeurs qui ne conviennent pas. Ici, nous n'en faisons pas usage. 

Ci-dessous, le module de classe et une routine d'utilisation (fichier en téléchargement 

Voiture 1.xlsrm) : 


Le module de classe Voiture 


Dim Car As String, Teinte As String 
Private Sub Class Initialize() 


Me.Genre - "Cabriolet" 
Me.Couleur - "Rouge" 
End Sub 


Public Property Get Couleur() As String 
Couleur - Teinte 

End Property 

Public Property Let Couleur (ByVal vNewValue As String) 
Teinte - vNewValue 

End Property 

Public Property Get Genre() As Variant 
Genre - Car 

End Property 

Public Property Let Genre (ByVal vNewValue As Variant) 
Car - vNewValue 

End Property 


Le module d'utilisation Module 1 


Sub essai() 
Dim V As New Voiture 
MsgBox V.Genre + " " + V.Couleur 
V.Couleur - "Bleu" 
V.Genre - "Berline" 
MsgBox V.Genre + " " + V.Couleur 
End Sub 


DES MÉTHODES 


Les objets ont des méthodes, c'est-à-dire des procédures ou des fonctions qui effectuent des 
actions spécifiques sur eux. Ces procédures étant dans le module de classe, elles ont accès à 
toutes les données. Ici, nous introduisons une propriété supplémentaire, le kilométrage, propriété 
KM, implémentation interne Kilom : elle sera en lecture seule car, seule, la méthode Rouler que 
nous introduisons pourra augmenter la valeur ; on n'autorise pas l'action directe sur la valeur 
comme le font certains garagistes indélicats. (Fichier Voiture 2.xfsm). 


Le module de classe Voiture 
Dim Car As String, Teinte As String, Kilom As Long 
Private Sub Class Initialize() 
Dim s As String, p As Integer 
s=InputBox ("Genre, Couleur?" 
p = InStr(s, ") 


Joiture","Cabriolet,Rouge") 
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Me.Genre = Left(s, p - 1) 
Me.Couleur = Mid(s, p + 1) 
Kilom = 0 

End Sub 


Public Property Get Couleur() As Srring 
Couleur - Teinte 
End Property 
Public Property Let Couleur(ByVal vNewValue As String) 
Teinte - vNewValue 
End Property 
Public Property Get Genre()As Variant 
Genre - Car 
End Property 
Public Property Let Genre (ByVal vNewValue As Variant) 
Car = vNewValue 
End Property 
Public Property Get KM() As Variant 
KM - Kilom 
End Property 
Public Sub Rouler(k As Long) 
If k < 0 Then Exit Sub 
Kilom = Kilom + k 
End Sub 


Le module d'utilisation Module 1 


Sub essai() 
Dim V As New Voiture 


MsgBox V.Genre & " " & V.Couleur & " " & V.KM & " km" 
V.Couleur = "Bleu" 
MsgBox V.Genre & " " & V.Couleur & " " & V.KM & " km" 
V.Rouler (10000 
MsgBox V.Genre à " " & V.Couleur & " " & V.KM & " km" 
V.Genre - InputBox("Transformer en ?", "Voiture", V.Genre) 
MsgBox V.Genre & " " & V.Couleur & " " & V.KM € " km" 

End Sub 


La méthode kouler a un paramètre : le nombre de kilomètres roulé, qui va être ajouté au 
kilométrage précédent. Nous avons ici écrit les concaténations dans les MsgBox avec le signe & 
parce que le kilométrage v . &« est numérique. Il aurait fallu introduire des CStr pour pouvoir 
rester avec les signes +. Nous avons modifié la routine Initialize pour demander à l'utilisateur 
les paramètres initiaux de la voiture : en somme, on simule un bon de commande. 


DES EVENEMENTS 
Qu'est-ce qui manque à notre objet voiture ? Des événements. Nous allons implanter un 
événement Panne (excusez notre pessimisme !). Quand les pannes arrivent-elles ? Quand on 
roule. Pour simplifier, nous suscitons la panne à chaque appel de Rouler : c'est un peu trop 
pessimiste ; on aurait dû rendre cette instruction conditionnelle, soumise à un Rna par exemple. 
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Le module de classe Vo: ture est peu modifié : il ne s'ajoute que la déclaration de l'événement : 
Public Event Panne () et l'instruction de déclenchement de l'événement dans Rouler : 


RaiseEvent Panne. 
La modification la plus draconienne est celle de la déclaration de l'objet v (la voiture) : 


Private WithEvents V As Voiture. Le probléme est qu'une telle déclaration ne peut pas 
être dans un module normal comme Module 1 ; elle doit être dans un module objet. Nous avons 
donc transporté toute l'utilisation dans le module associé à la feuille Feu/I. (Fichier 
Voiture_3.x/sm). 


Le Module d'objet Feuil1 


Private WithEvents V As Voiture 
Private Sub V Panne ( 

MsgBox "Panne à " & V.KM & " km" 
End Sub 
Sub essai () 

Set V = New Voiture 


MsgBox V.Genre & " " & V.Couleur & " " & V.KM & " km" 
V.Couleur = "Bleu" 
MsgBox V.Genre & " " & V.Couleur & " " & V.KM & " kn" 
V.Rouler (10000) 
MsgBox V.Genre & " " & V.Couleur & " " & V.KM & " km" 
V.Genre - InputBox("Transformer en ?", "Voiture", V.Genre) 
MsgBox V.Genre & " " & V.Couleur & " " & V.KM & " km" 
V.Rouler (15000) 

End Sub 


La liste déroulante de gauche du module de feuille fait apparaitre l'objet v. Si vous le sélectionnez, 
l'événement Panne apparait dans la liste déroulante de droite ; un clic implante l'en-téte et la fin 
de la procédure événementielle correspondante : il n'y a plus qu'à la remplir. 

La routine que nous avons implantée comme réponse à l'événement est de fournir un simple 
message disant qu'il y une panne (en principe, un automobiliste s'en aperçoit !) et à quel 
kilométrage. 


Le module de classe Voiture 


Dim Car As String, Teinte As Str:ng, Kilom As Long 
Public Event Panne ( 


Private Sub Class Initialize() 
Dim s As String, p As Integer 
s = InputBox("Genre,Couleur ? ", "Voiture", "Cabriolet,Rouge") 
p = InStr(s, ",") 
Me.Genre = Left(s, p - 1) 
Me.Couleur = Mid(ís, p + 1) 
Kilom = 0 
End Sub 
Public Property Get Couleur() As String 
Couleur - Teinte 
End Property 
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MODULES DE CLASSE - PROGRAMMATION OBJET 


Public Property Let Couleur (ByVal vNewValue As String 
Teinte = vNewValue 

End Property 

Public Property Get Genre() As Variant 
Genre - Car 

End Property 

Public Property Let Genre(ByVal vNewValue As Variant) 
Car - vNewValue 

End Property 

Public Property Get KM() As Variant 
KM - Kilom 

End Property 

Public Sub Rouler(k As Long 
If k < 0 Then Exit Sub 


Kilom = Kilom + k 
RaiseEvent Panne 
End Sub 
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PARTIE 2 


MÉTHODOLOGIE ET 


EXEMPLES 
RÉUTILISABLES 


Techniques utiles et 
exemples à réutiliser 


Boutons, barres d'outils, menus, ruban 


Bases de données 


Exemple de génération de graphique 


Schémas de routines 


Exemples réutilisables 
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La nouvelle interface d'Office à partir de 2007 par ruban, onglets et groupes a fortement modifié 
les possibilités de personnalisation. Par Excel on peut soit installer sur la barre d'outils Accès rapide 
(en haut de l'écran) des commandes qu'on veut pouvoir appeler rapidement soit créer des onglets 
personnalisés, avec des groupes personnalisés ; ce dernier cas est une nouveauté depuis la 
version 2010 et les seuls éléments que l'on peut installer dans un groupe d'un onglet personnalisé 
sont des boutons de commande associés soit à une commande existante, soit à une macro écrite 
par vous. 

La personnalisation par macro des anciennes versions reste valable en version 2007 à 2016, mais 
au lieu d'installer de nouveaux menus ou barres d'outils, elle installe tous les éléments créés dans 
un onglet ajouté nommé « Compléments », groupe « Barres d'outils personnalisées ». 

D'autres modifications du ruban passent par des fichiers .xml qu'on attache par des programmes 
que Microsoft suggére d'écrire en C# ou en VBA ; ceci est hors du sujet de ce livre. Vous pouvez 
consulter l'aide en étant dans l'éditeur VBA : faites Rechercher avec Ruban comme mot-dé. 


PERSONNALISATION PAR EXCEL 


Barre d'outils Accés rapide 
= Dans l'écran Excel : Fichier- Options — Barre d'outils Accés rapide : 


Operon Facet 


x la barre Fotis Accés rapide 


| [Commander non présentes sure. © 


brouter 


emphémeres | 


meh de geom 3e ia content site Panonnanabons 


Anner 


Dans la liste déroulante de droite, vous avez le choix entre Tous /es documents (par défaut) 
ou le classeur en cours (plus prudent). 

Dans la liste déroulante de gauche, les choix sont : Commandes courantes, Commandes non 
présentes sur le ruban (ce choix permet de récupérer des commandes de la version 2003 qui 
ont été écartées), Macros (ce choix permet d'accéder rapidement à des commandes 
implantées par macro ; il présente en particulier les procédures que vous avez écrites) et 
Toutes les commandes. 


Ayant choisi une commande, Ajouter >>| 


la fait passer dans la liste de droite des commandes 


de la barre d'Accès rapide. OK 


valide le nouvel état de la barre. 


su pprimer fait le contraire : elle supprime la commande sélectionnée de la liste de droite. 


Réinitialiser 


modifier le 


Si la commande était choisie parmi les macros, le bouton Modifier 


rétablit la barre Accès rapide dans son état initial. 


est actif : il permet de 
ibellé et l'icône associée. Il vient une boite de dialogue où vous pouvez taper le 


ibellé et choisir parmi 180 icônes typiques : 


— VBA pour Excel versions 2019 et Office 365 


BOUTONS, BARRES D’OUTILS, MENUS, RUBAN 


? 


Bouton Modifier 


Symbole 
$580600924' ¢@H ah 


\QOOG@@«nersv OCE 


Am ZF = 
Eee 


“look Ae eme 


[5 


Nom complet: | MaMacre 


teme 


m Choisissez et OK] deux fois : le nouveau bouton apparaît dans la barre d'outils Accès rapide. 


m Vous ne pouvez pas spécifier un fichier image de votre cru alors que c'est possible pour un 
bouton installé par macro dans l'onglet Compléments. 


Onglet personnalisé 
Pour créer un onglet personnalisé : 


m Dans l'écran Excel : Fichier- Options — Personnaliser le ruban. 


m Choisissez Onglets principaux dans la liste déroulante de droite, sélectionnez l'onglet derrière 
lequel vous souhaitez implanter le nouveau et cliquez sur Nouvel onglet. 


m Il apparaît un onglet intitulé Wouve/ onglet (Personnalisé) avec un groupe Nouveau groupe 


(Personnalisé). 


Pour renommer un onglet personnalisé (c'est impossible pour les autres) : 
m Sélectionnez cet onglet, cliquez sur Renommer et tapez le nom. 


Renommer ? x 


Nom complet; |MonOngiet 


sone 


Pour renommer un groupe personnalisé (c'est impossible pour les autres) : 


m Sélectionnez ce groupe, cliquez sur Renommer et tapez le nom. La boîte de dialogue, 
analogue à celle vue ci-dessus permet aussi d'attribuer une icône au groupe. 


Pour ajouter un groupe : 


m Sélectionnez l'onglet et cliquez sur Nouveau groupe. 


Pour installer une commande : 


wm Sélectionnez le groupe. En principe, choisissez Macros dans la liste déroulante de gauche ; 


sélectionnez la macro et cliquez sur Ajouter» >|. 


m Sélectionnez la commande et cliquez sur 
choisissez une icóne et tapez un nom. 


Renommer. Dans la boîte de dialogue vue ci-dessus, 
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morem le ratan 


Meniraupe Person natn: 
m—- A Créer compliments 


Pour déplacer des éléments : 


m Sélectionnez l'élément et utiliser les flèches descendante et montante à droite de la liste des 
onglets. 


Pour supprimer : 


m une commande : sélectionnez-la et cliquez sur I «Supprimer ; un onglet ou un groupe : 
cliquez dessus du bouton droit et Supprimer. 


m Le bouton réinitialiser permet de supprimer toutes les personnalisations, y compris l'affichage 
de l'onglet Développeur. 


MonOnglet 


Créer 
compléments 


MeeGroupe 


PERSONNALISATION PAR MACRO 
Ayant Dim nvBarre As CommandBar, on crée une nouvelle barre (virtuelle en version 2007- 
2016 : c'est l'onglet Compléments) par : 
Set nvBarre-Application.CommandBars.Add (Name:-"«nom»", 

Position:-msoBarTop, MenuBar:-True, Temporary:-True) 

Tous les arguments sont facultatifs. «nom» est le nom attribué à la barre : elle pourra être 
désignée par Apolication.Command3ars ("<nom>") ou par le nom de variable du Set 
(nvBarre). Si le nom n'est pas spécifié, VBA fournit un nom arbitraire. De toutes facons, vous 
obtiendrez l'onglet Compléments, groupe Barres d'outils personnalisées. 
Pour Position, on a le choix entre msoBarTop, msoBarBotton, msoBarLeft et 
msoBarRight. Top nous semble le meilleur. On peut spécifier aussi nsoBarF:oating (la barre 
ne sera pas ancrée) et msoBarPopup (la barre sera un menu contextuel). 
Si MenuBar est l'rue, la nouvelle barre remplace la barre des menus normale ; c'est sans effet en 
version 2016 : l'onglet s'ajoute au ruban. Temporary est mis à True (défaut) pour que l'onglet 
disparaisse quand on quitte Excel. 
Il faut penser à mettre à True les propriétés Enabled et Visible de la nouvelle barre pour la 
rendre utilisable. On met ces propriétés à alse pour désactiver et faire disparaître une barre. 


Pour créer un contrôle sur la barre (en version 2016, dans le groupe de l'onglet Compléments) : 
Set <varCtl> = nvBar.Contrcls.Add («type») où «type» indique le type du 
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contrôle parmi nsoControlButton (bouton), msoControlComboBox (ComboBox) ou 
msoControlPopup (menu ou rubrique de menu). Les autres arguments sont facultatis. 


La propriété la plus essentielle d'un contrôle est OnAction="<nom proc>" qui précise le nom de 
la procédure à appeler quand le contrôle est mis en œuvre. 


L'exemple qui suit montre la création du groupe Barres d outils personnalisées dans l'onglet 
Compléments avec deux boutons, une ComboBox et un menu déroulant. On voit comment on 
affecte un fichier image comme dessin du bouton (propriété Picture et méthode 
LoadPicture), comment on fixe le libellé des rubriques de menu (propriété Caption) et 
comment on remplit la liste des choix d'une ComboBox (méthode AddItem). 


Toutes les routines de traitement sont ultrasimplifiées (réduites à un message). Il y a l'indis- 
pensable routine de rétablissement de l'état initial (suppression de l'onglet Compléments). 


Dim nvBar As CommandBar, Bout As CommandBarButton 

Dim Bout2 As CommandBarButton, Ch As String 

Dim cbb As CommandBarComboBox, Men As CommandBarPopup 

Dim menl As CommandBarPopup, men2 As CommandBarPopup 

Sub creBarre( 

Ch = ThisWorkbook.Path + Application.PathSeparator 

Set nvBar = Application.CommandBars.Add (Name:="Barre2", 
Position:=msoBarTop, MenuBar:=True, Temporary:=True) 

nvBar.Enabled = True 


nvBar.Visible = True 

Set Bout = nvBar.Controis.Add (msoControlButton) 
Bout.Caption = "Bouton" 

Bout.Style = msoButtonCaption © 

Bout.Width = 20 

Bout.OnAction = "pBout" 


Set cbb = nvBar.Controls.Add(msoControlComboBox) 
cbb.AddItem "Choix 1" 
cbb.AddItem "Choix 2" 


Cbb.Text = "Choix 1" 

cbb.Style = msoComboLabel 

cbb.Caption - "Choix" 

cbb.OnAction = "pcbb" 

Set Men = nvBar.Controls.Add(msoControlPopup) 
Men.Caption = "Menu0d" 

Set menl = Men.Controls.Add(msoControlPopup) 
menl.Caption = "Menul" 

menl.OnAction - "pMenl" 

Set men2 = Men.Controls.Add(msoControlPopup) 
men2.Caption - "Menu2" 

men2.0nAction - "pMen2" 

Set Bout2 = nvBar.Controls.Add (msoControlButton 
Bout2.Caption = "Bouton 2" 


Bout2.Style = msoButtoniconAndCaption @ 
Bout2.Width = 20 


Bout2.0nAction = "pBout2" 
Bout2.Picture = _ 
stdole.StdFunctions.LoadPicture(Ch + "imb.bmp") © 
End Sub 
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Sub pBout () 

MsgBox "Bouton" 
End Sub 
Sub pBout2() 

MsgBox "Houton 2" 
End Sub 
Sub pcbb() 

MsgBox cbb.Text 
End Sub 
Sub pment () 

MsgBox menl.Caption 
End Sub 
Sub pmen2 () 

MsgBox men2.Caption 
End Sub 


Sub Retablir() 
CommandBars ("Barre2") .Delete 
End Sub 


Le 17 bouton a seulement un libellé @, tandis que le bouton 2 a un libellé et une icône € et on 
voit comment on incorpore pour cela un fichier image créé par l'utilisateur © (pensez à adapter 
disque et dossier). 

Voici l'onglet Compléments qui est ajouté en avant-derniére position : 


[D 


Bouton Choix Choi 1 + Meniü*  !* Bouton 2 


Barres d'outils personnalisées 
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BASES DE DONNÉES 


Excel permet de simuler une base de données sur une feuille de classeur : une ligne correspond à 
un enregistrement et une colonne correspond à un champ. Il faut une première ligne d'en-têtes 
qui contient les noms des champs. Excel permet le tri des données et possède des fonctions 
statistiques sur bases de données et vous pouvez écrire des macros de recherche et sélection 
d'enregistrements. 

Il y a deux différences entre ces possibilités et les véritables logiciels de bases de données comme 

Access : 

— Les listes de données d'Excel (tableaux listes) sont dans des feuilles de calcul et sont donc en 
mémoire alors que les logiciels de BD gérent les données sur disque. Ils sont donc moins limités 
en taille et sont optimisés pour &tre plus rapides. 

— Une liste de données d'Excel est limitée à 1 million d'enregistrements mais de fait beaucoup 
moins pour des raisons de mémoire, encore que cette limite recule à mesure des progrés des 
ordinateurs. Il en résulte que de plus en plus d'applications sont compatibles avec ces limites. 

Avec les progrès des performances et des mémoires, Excel est parfaitement capable de traiter, par 

exemple une base de données de 5 000 clients, et m&me plus, peut-étre 20 000 s'il n'y a pas trop 

de rubriques. 


BASES DE DONNÉES EXTERNES 


Microsoft Query 
Livré avec Excel, Microsoft Query permet d'extraire des données d'une base Access, Oracle ou 
autres. Il permet de générer des requétes. Faute de place, nous ne pouvons pas nous étendre : 
vous pouvez voir toutes les méthodes et propriétés des objets Quer yTab:e et ListObjects 
dans l'Explorateur d'objets. 
Par ailleurs, pour voir comment cela se programme, passez en mode enregistrement de macro. 
Faites (Données - Données externes — À partir de MS Access. Dans la BDi de choix de la source 
des données, dans la liste déroulante, choisissez une base Access que vous aurez créée par 
exemple C:[Utilisateurs|Utilisateur|Documents|Adresses.Acedb Dans la nouvelle BDi, choisissez la 
table qui vous intéresse et spécifiez 
© Insérer les données dans une nouvelle feuille : les données apparaissent. Cliquez sur Fin 
d'enregistrement pour terminer l'enregistrement et voyez ce qui est généré. 
ActiveWorkbook.Worksheets.Add obéit à la spécification d'une nouvelle feuille. 


On fait un Aaa à la collection ListObjects : 

With ActiveSheet.ListObjects.Add avec les arguments Connection:-.. et 
Destination:-Range ("Al") .QueryTab:e. Ensuite on fixe différentes propriétés, notamment 
.SourceDataFile- "C:\Utilisateurs\Utilisateur\ Documents MAdresses.Accdb" 


Nous vous suggérons d'essayer aussi en spécifiant une requête (Données — Données externes — 
A partir d'autres sources- Provenance : Microsoft Query). 


ODBC 
Si le produit est installé, vous pouvez référencer un driver ODBC et accéder à d'autres bases. Dans 
Outils — Références, choisissez Microsoft DAO 3.6 Object Library (le numéro de version peut 
varier). Voyez les objets disponibles dans l'Explorateur d'objets : bibliothèque DAO, classes 
WorkSpace (s), DBEngine, DataBase (s), Connection(s), QueryDef (s), TableDef (s) 
et RecordSet (s). 
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EXEMPLE DE GÉNÉRATION DE GRAPHIQUE 


La création de graphiques sous Excel est extrêmement commode et intuitive. Pour voir comment le 
faire en programmation, le mieux est de se mettre en mode enregistrement de macro, de créer un 
graphique et ensuite de s'inspirer du code généré par Excel. Un intérêt de la programmation de 
graphiques est que le programme VBA qui crée un graphique est moins encombrant en mémoire 
que le graphique lui-même : donc on sauvegardera le classeur avec ce programme plutôt qu'avec 
le graphique et on pourra toujours exécuter le programme si on veut voir le graphique. 


Voici un exemple d'un tel programme qui suppose en A1:F5 des données du genre : 


1999 2000 2001 2002 2003 
IDF 700 600 800 900 950 
PACA 200 150 190 210 250 
P.Loire 100 100 110 120 130 
Rh. Alpes 200 200 250 300 350 
Dim m As Integer 


Charts.Add 
With ActiveChart 
-SetSourceData Source:-Sheets("Feuil2"]. 
Range ("Al:F5"), PlotBy:=xlRows 
For m - 1 To 4 
.SeriesCollection(m).XValues = Sheets("Feuil2") 
.Range ("B1:F1").Value 
.SeriesCollection(m).Values - Sheets("Feuil2") 
.Range("B" & m + 1& & m + 1).Value 
.SeriesCollection(m).Name = Sheets ("Feuil2") 
.Range("A" & m + 1).Value 
Next m 
.ChartType = xlLine 
.Location Where:=xlLocationAsNewSheet 
.Axes(xlCategory, xlPrimary).HasTitle = True 


.Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "Années" 
.Axes(xlValue, xlPrimary).HasTitle = True 

.Axes(xlValue, xlPrimary).AxisTitle.Characters.Text - "Tonnes" 
-PlotArea.Interior.ColorIndex = 20 * Gris 


.Axes(xlValue).MajorGridlines.Border.LineStyle - xiDot 
.ChartArea.Font.Size - 15 
.Deselect 
.Move 
End With 


Le graphique est d'abord créé comme feuille graphique dans le classeur, mais l'appel de la 
méthode Move sans argument le fait déplacer dans un nouveau classeur, ce qui permet l'économie 
dont on parlait au début. Remplacer la définition des données par ce qui suit permet de 
représenter des données hors classeur (calculées sur le moment) : 

.SetSourceData Source:=Sheets ("Feuil3") 

-Range ("Al:D3"), PlotBy:=xlRows 
For m = 1 To 2 
.SeriesCollection(m).XValues = Array(2000, 2001, 2002) 


.SeriesCollection(m).Values = Array(100 * m, 80 * m, 150 * m) 
.SeriesCollection(m).Name = "Série " + CStr(m) 
Next m 


Le .SetSourceData reste nécessaire, méme s'il indique une plage vide. 
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SCHÉMAS DE ROUTINES 


PARCOURIR LA PARTIE UTILE D'UNE FEUILLE, TROUVER LA 1RE LIGNE VIDE 
Ce schéma est spécialement important. On écrit : 
For Ligne-Début To 65536 

If IsEmpty (Cells (Ligne,Col)) Then Exit For 

faire ce qu'on a à faire sur les lignes utiles 

Next Ligne 

' Ici Ligne-n? de la première ligne vide 


' 


Ligne est a priori de type Long ; on a mis la limite de la version 2003 ; vous pouvez mettre plus - 
jusqu'à un million en versions 2007 à 2016 — mais si on sait que la limite est bien inférieure, on la 
met et on peut utiliser un Integer. Début est le numéro de la première ligne utile : c'est peut- 
être 1, mais pour une liste style BD, c'est 2 puisque la première ligne porte les libellés de champs. 
Co1 est le numéro d'une colonne/champ dont on est sür qu'elle est remplie pour chaque ligne 
utile. La désignation C211s doit, si nécessaire, être préfixée par classeur et feuille. 


Autre solution 
Cells(L,C).Select 
PLV-ActiveCell.CurrentRegion.Rows.Count*l 
Cette solution est valable surtout si on n'a pas de traitement à faire sur les lignes. Elle 
s'accommode de l'oubli de remplir une cellule. ActiveCell.End(xlDown) .Row ou 
Cells.SpecialCells (xlCell7ypeLastCell).Row peuvent aussi être utilisés. 
À une unité près, ce problème est le même que compter les lignes occupées. S'il s'agit d'une feuille 
occupée de façon éparse, on peut utiliser Act iveSheet .UsedRange.Rows.Count. 


PARCOURIR LA PARTIE UTILE D'UNE FEUILLE POUR RECHERCHER UNE DONNEE 
On a une feuille BD. On cherche si, dans la colonne Col, il y a la valeur VATR : 
For Ligne-Début To 65536 
If IsEmpty (Cells (Ligne,Col)) Then Exit For 
If Cells(Ligne,Col).Value-VATR Then Exit For 
Next Ligne 
' Ici Ligne-n^ de la première ligne vide ou de la valeur trouvée 
If Not IsEmpty(Cells(Ligne,Col)) Then MsgBox "Trouvé !" 


Autre solution 
On introduit un booléen Tr, True si c'est trouvé : 


Tr-False 
For Ligne-Début To 65536 
If IsEmpty(Cells(Ligne,Col)) Then Exit For 


If Cells(Ligne,Col).Value-VATR Then Tr-True:Exit For 
Next Ligne 
If Tr then MsgBox "Trouvé !" 


3° solution 


Cells (Début,Col) .Select 

Tr=False 

For Ligne=Début To ActiveCell.CurrentRegion.Rows.Count 
If Cells (Ligne,Col) .Value=VATR Then Tr=True:Exit For 

Next Ligne 

If Tr then MsgBox "Trouvé !" 
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SCHÉMAS DE ROUTINES 


INSÉRER UN ÉLÉMENT À SA PLACE DANS L'ORDRE ALPHABÉTIQUE 


On a une feuille BD avec une liste de représentants, région, chiffre d'affaires, etc. Les noms sont 
en colonne Col et sont classés par ordre alphabétique. On doit insérer les données d'un nouveau 
représentant de nom NouvNom : 


For Ligne-Début To 65536 
If IsEmpty(Cells(Ligne,Col]) Then Exit For 
If NouvNom<Cells (Ligne,Col) .Value Then 
Cells (Ligne, Col) .EntireRow.Insert 


Next Ligne 
' Ici Ligne-n? de la première ligne vide ou de la ligne vide insérée 
Cells (Ligne, Col) .Value=NouvNom 


' Autres données 


REGROUPEMENT DE DONNÉES 


La feuille Départ est une BD des représentants (nom dans la colonne Colnom, CA dans la colonne 
Colca). On veut créer en feuille Cumuls les CA totaux de chaque représentant. Au démarrage, la 
feuille Cumu/s n'a que la ligne des libellés des deux champs. 


Set FD=Sheets ("Départ") : Set FC-Sheers ("Cumu!s") 
For Ligne-Début To 65536 
If IsEmpty(FD.Cells(Ligne,Colnom)) Then Exit For 
Nom=FD.Cells (Ligne,Colnom].Value 
For Ligne2-Début To 65536 
If IsEmpty(FC.Cells(Ligne2,Colnom)) Then Exit For 
If Nom-FC.Cells(Ligne2,Colnom).Value Then Exit For 
Next Ligne2 
FC.Cells (Ligne2,Colnom).Value-Nom 
FC.Cells(Ligne2,ColCA).Value-FC.Cells(Ligne2,ColCA).Value 
+ FD.Cellis(Ligne,ColCA).Value 


Next Ligne 


LIRE DANS UN FICHIER CLASSEUR SANS L'OUVRIR 


La méthode consiste à installer dans une cellule du classeur actuel, un lien vers la cellule voulue 
du dasseur qu'on veut lire : 


Range("D5").FormulaLocal = "='C:\Tsoft\[(Cl£.xlsx]Feuill'!A1" 
Debug.Print Range("D5").Value 


COPIE D'UN FICHIER 
Lorsqu'on ne sait rien sur le contenu du fichier, on procéde caractére par caractére : 


Open "C:\Tscft\essl.txt" For Input As #1 
Open "C:\Tsoft\esslcop.txt" For Output As #2 
While Not EOF(1) 

x = Input(1, #1) 

Print F2, xr 
Wend 
Close 2 
Close 1 
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EXEMPLES RÉUTILISABLES 


REPÉRER LE MAXIMUM DANS UNE LISTE 


La fonction statistique Max nous donnerait la valeur du maximum ; ici, nous voulons le numéro de 
ligne du maximum. Le maximum provisoire est MaxProv (il deviendra le maximum définitif). 


Lmax-Début : MaxProv=Cells(Lmax,Col) .Value 
For Ligne = Début+l To 65536 
If Cells (Ligne,Col) -Value > MaxProv then 
Lmax-Ligne : MaxProv-Cells (Lmax,Col).Value 
End If 
Next Ligne 
MsgBox "Maximum " & MaxProv & " à la ligne " & Lmax 


RECHERCHE DICHOTOMIQUE DANS UN TABLEAU OU UNE FEUILLE 


La recherche dichotomique est beaucoup plus efficace pour les grandes listes que la recherche 
séquentielle : on divise l'intervalle de recherche par 2 à chaque étape d’où un temps proportionnel 
à Log2 (n). Il faut que le tableau soit classé (croissant dans notre exemple). Ici, on suppose que 
la cellule active est dans le tableau. Les arguments de la fonction Dicho ci-dessous sont le nom 
cherché, le numéro de colonne des noms et le numéro de ligne de départ, 1 ou 2. Le résultat est 
le numéro de ligne trouvé ou 0 si le nom n'est pas présent. 


Function Dicho(NomCher As String, Col As Integer, Ldep As Long) 

As Long 

Dim Linf As Long, Lsup As Long, Lmil As Long 

Linf = Ldep 

Lsup = ActiveCell.CurrentRegion.Rows.Ccunt 

If (NomCher > Cells(Lsup, Col).Value) Or (NomCher < _ 
Cells(Linf, Col).Value) Then Dicho - 0: Exit Function 

If NomCher = Cells(Linf, Col) Then Dicho = Linf: Exit Function 

If NomCher = Cells(Lsup, Col) Then Dicho = Lsup: Exit Function 

Lmil = (Linf + Lsu NZ 

While (Lmil <> Linf) And (NomCher <> Cells(Lmil, Col).Value 
If NomCher > Cells(Lmil, Col).Value Then 


Linf = Lmil : Lmil = (Linf + Lsup) \ 2 
Else 
If NomCher < Cells(Lmil, Col).Value Then 
Lsup = Lmil : Lmil = (Linf + Lsup) \ 2 
End If 
End If 
Wend 


If NomCher = Cells(Lmil, Col) .Value Then Dicho-Lmil Else Dicho = 0 
End Function 


SOMME ET MOYENNE DES ÉLÉMENTS D'UN TABLEAU 


On suppose le tableau valeurs dimensionné et initialisé : 


or I-LBound(Valeurs) To UBound (Valeurs) 
N=N+1 
S=S+Valeurs (Ij 

Next I 

M=S/N 
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EXEMPLES RÉUTILISABLES 


FONCTION DÉCELANT SI UN CLASSEUR EST OUVERT 


Nous munissons notre fonction d'un argument facultatif : sil est présent et True, c'est le nom 
complet (avec disque et répertoire) qui est fourni comme 1% argument, s'il est absent c'est d'après 
le simple nom qu'on recherche. Dans tous les cas, il faut le .xlsx dans le nom. 


Function Ouvert (Nom as String, Optional F As Boolean=False) As 
Boolean " 
Dim W As Workbcok, Tr As Boolean 
Tr-False 
For Each W In Workbooks 
If F Then 
If W.FullName-Nom then Tr=True: Exit For 
Else 
If W.Name=Nom then Tr-True: Exit For 
End If 
Next 
Ouvert-Tr 
End Function 


Par exemple, aprés avoir créé le dossier et le classeur, essayez dans la fenétre Exécution : 
? Ouvert ("C:\Tsoft\Cl£.xlsx", True) 


FICHIER TEXTE À LONGUEUR DE LIGNE CONSTANTE 


Sub EcritLargConst( 
Dim i As Integer, Ligne As String, Larg As Integer 
Larg = 10 : Ligne = Space (Larg) 'Largeur à décider 
Open "C:\Tsoft\ess3.txt" For Output As #1 
For i = 0 To 9 
Mid(Ligne, 1) = Chr(48 + i) 'ou toute donnée 
Print #1, Ligne + vbCr; "de largeur < Larg 
Next i 
Close #1 
End Sub 
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Conseils méthodologiques 


Principes : la feuille menu 


Développement progressif d'une application 


Démarrage automatique 


Création d'un systéme d'aide 


Gestion avec dictionnaire de données 


Gestion des versions 
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PRINCIPES : LA FEUILLE MENU 


Pour des applications d'une certaine complexité, nous mettons en avant trois principes : 
ergonomie, séparation programme-données et développement progressif de l'application. 


ERGONOMIE 


C'est le principe d'avoir le logiciel le plus commode à utiliser possible. Donc les différentes 
fonctions du logiciel doivent pouvoir étre appelées par un simple clic, soit sur un bouton, soit sur 
un menu. Mais cela ne suffit pas, il faut que l'utilisateur ait accès à une brève mais précise 
description de la fonction pour pouvoir la choisir en connaissance de cause. 

En outre, il faudra fournir à l'utilisateur un systéme d'aide adéquat et il se pose la question du 
démarrage automatique de certaines parties du programme. Aussi, on aura soin de développer des 
BDi d'entrée de données les plus commodes possibles. 


SÉPARATION PROGRAMMES-DONNÉES 


Il est préférable que les programmes soient seuls dans leur classeur, et que les données soient 
dans un autre classeur. Dés qu'une application est un peu élaborée, il y a plusieurs classeurs de 
données à manipuler, donc il n'y a pas de raison qu'une partie des données soit avec le 
programme. Parmi les classeurs de données à manipuler, il y a le(s) document(s) que le logiciel 
doit produire et un ou plusieurs classeurs bases de données. Par exemple, dans une application de 
facturation, la facture est le principal document à produire. Les bases de données seront les clients 
et produits. Si on greffe la gestion des stocks, un document supplémentaire pourra être le bon de 
commande de produits et on ajoutera une base de données fournisseurs. 

Chaque document à produire sera un classeur Excel. On en créera un modèle vierge que le logiciel 
chargera et sauvegardera aussitót sous le nom convenable : il faut concevoir des régles de 
nommage des documents (ex. pour une facture : début du nom du client suivi d'un numéro de 
séquence) et décider les répertoires d'implantation. 


DÉVELOPPEMENT PROGRESSIF DE L'APPLICATION 


Pour un programme assez complexe, il n'est pas possible de procéder à une mise au point en bloc 
de la totalité des fonctionnalités. Il faut que le développement soit progressif, c'est-à-dire 
implémenter les fonctionnalités une par une, et accepter qu'à un instant donné, il ny ait qu'une 
partie des fonctions opérationnelles. Reprenant l'exemple de la facturation, on pourra commencer 
par la construction de la facture, en travaillant sur une base clients provisoire, laissant pour plus 
tard les fonctionnalités de gestion de la base clients. 


CLASSEUR MENU 


La question de l'outil utilisé pour lancer une fonction se pose. Beaucoup de développeurs 
construisaient des barres d'outils et de menus personnalisés qui remplacaient les menus et barres 
d'outils classiques d'Excel et le rendaient méconnaissable pour que l'utilisateur final sache bien qu'il 
était en présence de notre programme et non d'Excel classique. 

Nous ne sommes pas, quant à nous, partisans de ce procédé. En effet, ce systéme posait un 
probléme épineux, celui de rétablir les menus et barres classiques d'Excel. Bien sür, ce 
rétablissement était possible et il suffisait que le programmeur n'oublie pas, au moment de quitter 
le programme, d'appeler une routine de rétablissement. Mais 1) c'est une contrainte pour le 
programmeur, et 2) en cas de plantage le rétablissement n'était pas fait, il fallait le faire à la main. 
L'utilisateur final n'en était pas toujours capable, d'oü frayeur et inconfort. 

Avec la nouvelle interface de la version 2013, le problème ne se pose plus : il n'est pas facile de 
complétement remplacer le ruban par un autre. On a vu qu'on peut ajouter un onglet 
Compléments avec les commandes de l'application, mais alors, l'utilisateur ne voit pas trés 
nettement qu'il est dans notre programme. 
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PRINCIPES : LA FEUILLE MENU 


Nous préférons installer des boutons de déclenchement sur la feuille de calculs du classeur 
programme, et donc garder les menus d’Excel. Cette démarche a un inconvénient, mais qui est 
remédiable : puisqu'il a les menus Excel, l'utilisateur peut agir directement sur les classeurs BD et 
les altérer. Le remède est simple : il suffit que les classeurs BD soient protégés par mots de passe 
de sorte que l'entretien de BD ne puisse se faire que par les fonctions correspondantes de notre 
programme. 


AVANTAGES 


Du côté des avantages, le fait que, dès que le classeur programme est chargé, une feuille couverte 
de gros boutons de déclenchement donne de la personnalité au programme, et c'est plus lisible et 
parlant que des boutons de barres d'outils ou des barres de menus. 


Un autre avantage est qu'on peut dans les cellules de la feuille menu voisines d'un bouton, mettre 
un texte explicatif de la fonctionnalité correspondante. 


Voici ce qu'on pourrait avoir pour la facturation : 


4 A L] € D € F 6 H Uu Lj K 
2 Facturation 
3 
4 Introduit un nouveau client 
5 dans le classeur Clients.xisx 
6 
7 Modifie une donnée d'un client 
8 ex. l'adresse 
9 


Crée une facture ; classeur 
debnomeli, n* xlsx 


Reprend une facturation 
interrompue 


introduit un nouveau produit 
dans le classeur Produits xlsx 


Modifie une donnée d'un produit 
ex. le prix unitaire 


Pour les boutons, on a le choix entre le rectangle de la commande € :Znsertion — [Illustrations] — 

Formes (vous pouvez aussi prendre l'ellipse pour un logiciel psychédélique !) et le bouton de 

commande de © Développeur — Contrôles — Insérer — Contrôles de formulaire. Bien sûr, on aura 

soin de bien formater les boutons par : 

m Clic droit sur le bord du bouton Format de contrôle 

m Onglet Police : l'ex. ci-dessus a Arial, 12 pt, gras 

= Onglet A/ignement : centré pour Horizontal et Vertical 

m Le remplissage est automatiquement bleu clair. C'est dans © Insertion — [Illustrations] — 
Formes qu'une petite BDi permet d'agir sur la couleur de remplissage, etc. 


Dans la figure ci-dessus, nous n'avons gardé qu'une feuille, renommée Menu, mais on pourrait en 
avoir plusieurs, correspondant à différents groupes de fonctionnalités. Dans une feuille, on pourrait 
avoir plusieurs colonnes de boutons correspondant aussi a différents groupes. 


© Eyrolles/Tsoft — VBA pour Excel 


DÉVELOPPEMENT PROGRESSIF D'UNE APPLICATION 


Une fois les boutons créés, il faut créer des procédures vides dans un module. Choisissez des 
noms parlants, par exemple toujours pour le cas de la facturation : NouvOl, ModCli, CréeFact, 
ReprFact, NouvProd, ModProd. Ensuite, il faut affecter chacune de ces procédures au bouton 
correspondant. Il est préférable de procéder dans cet ordre plutôt que de faire l'affectation avant 
d'écrire l'en-tête de la procédure : dans ce cas, un nom du style Rectang/el_QuandClic vous sera 
imposé et vous aurez à faire quelque chose pour le changer. 

Tant que la fonctionnalité n'est pas implémentée, vous pouvez laisser la procédure vide : si on 
clique sur le bouton concerné, il ne se passera rien. Sinon, vous pouvez installer une instruction du 
genre : 


|MsgBox "Pas encore implémenté". 


La progressivité est à plusieurs niveaux : 


— Introduction des fonctionnalités. On peut très bien ne pas avoir tout de suite pensé à 
toutes les fonctions à proposer. Mais rien n'empêche d'ajouter des boutons à tout moment, à 
mesure que le cahier des charges évolue. 

Dans notre exemple de facturation on pourrait suggérer d'ajouter un bouton d'aide, greffer la 
gestion des stocks, établir les liens voulus avec la comptabilité... 


- Échelonnement de l'écriture des fonctionnalités. On peut reporter à plus tard le 
développement des fonctionnalités les moins indispensables. Dans un exemple qui utilise des 
bases de données, on peut développer d'abord les fonctionnalités d'utilisation des bases : on 
peut fonctionner en se contentant des bases dans leur état de départ, ou en les gérant par 
action directe par Excel. Lorsqu'on implante la gestion des BD, on développe d'abord la fonction 
nouvel élément, et plus tard la modification. 


- Développement progressif de la fonctionnalité. On peut d'abord développer la 
fonctionnalité de facon simplifiée, en ne traitant que les cas les plus généraux et les plus 
souvent rencontrés, puis la perfectionner progressivement en incorporant de plus en plus de 
cas particuliers. 
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DÉMARRAGE AUTOMATIQUE 


MOYENS DE DEMARRAGE AUTOMATIQUE 
Il y a plusieurs moyens pour qu'une procédure se lance automatiquement. Les moyens des 
versions anciennes ont été gardés pour raison de compatibilité : ce sont les classeurs présents 
dans les répertoires x/Ouvrir ou x/Start et les procédures comme Auto Open. 
Nous considérons ces moyens comme ultra-démodés et nous conseillons de n'utiliser que les 
moyens modernes. Ceux-ci consistent à fournir une procédure d'événement Workbook Open ou 
Workbock Activate 


CAS DE DEMARRAGE AUTOMATIQUE 


On peut vouloir que toute l'application démarre automatiquement dans le but de canaliser 
l'utilisateur au maximum et l'obliger à répondre aux questions du programme. Nous pensons que 
c'est un peu trop : l'utilisateur motivé sait bien qu'il doit démarrer le programme, et donc notre 
technique des boutons menus convient. 

En revanche, il peut y avoir des opérations d'initialisations dont on veut être certain qu'elles ont 
été effectuées. Il est alors judicieux de les mettre dans Workbook Open ou 

Workbook Activate. 


Un inconvénient de ce démarrage automatique est que quand vous ouvrez le classeur lors de la 
mise au point du programme, ces opérations seront effectuées alors que ce n'est pas souhaité. En 
principe, ces opérations sont assez anodines pour que ce ne soit pas grave. 


ÉVITER LE DÉMARRAGE AUTOMATIQUE 
Si l'on veut vraiment éviter le démarrage automatique, on peut procéder ainsi : 
Au début du module 


Public InitFait As Boolean 
Sub Init() 
InitFait - True 


Dans chaque procédure de fonctionnalité 


Sub NouvCli() 
If Not InitFait Then Init 


Dans le module de ThisWorkbook 


Private Sub Workbook Open() 
InitFait - False 
End Sub 


À vrai dire on peut se passer de cette demiére procédure, un booléen étant automatiquement 
initialisé à False. 
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CRÉATION D'UN SYSTÈME D'AIDE 


Il est nécessaire de fournir une aide en ligne à l'utilisateur. On peut fournir, comme nous venons 
de le voir, de petits textes à côté des boutons menus. On peut aussi fournir des infobulles 
associées à chaque contróle dans les BDi. Mais ces textes sont beaucoup trop brefs. Il faut les 
compléter par ce qu'on appelle un systéme d'aide comportant plusieurs pages détaillées. 

Il y a un temps on construisait le systéme d'aide avec un compilateur d'aide (qu'il fallait acheter en 
plus) qui fournissait des fichiers .hlp. Ces fichiers hypertextes étaient automatiquement lisibles 
gráce à un logiciel fourni gratuitement avec Windows. 

Ceci est complètement démodé ! Maintenant, sachant que tous les ordinateurs sont équipés d'au 
moins un navigateur WEB et que, de toutes facons, ces logiciels sont téléchargeables 
gratuitement, on doit fournir l'aide sous forme de fichiers HTML. Ceux-ci peuvent étre créés « à la 
main » (il n'y a que quelques balises à connaitre), ou avec un logiciel ad hoc (par exemple Front- 
Page Express est bien suffisant pour un tel systeme d'aide, ce n'est pas un gigantesque site 
Internet qu'on prépare). 

Si vous voulez de simples pages sans liens entre elles, utilisez un éditeur simple comme le bloc- 
notes et il suffit d'écrire : 

«html» 

«body» 

«p re» 


<font face=arial> 


votre texte (sa présentation sera respectée grace a la balise pre) 

</font> 

</pre> 

</body> 

</html> 

Nous déconseillons d'utiliser Word qui donne des fichiers HTML trop perfectionnés et donc trop 
encombrants. 

Une fois que vous avez les fichiers .htm, (par exemple a/de.him) implantez-les dans le même 
dossier que le classeur programme. Implantez des boutons d'aide, au moins un dans la feuille 
Menu et un dans chaque BDi. La routine de clic d'un tel bouton appellera : 


Sub Aide() 
ThisWorkbook.FollowHyperlink Address:-ThisWorkbook.Path & 
"\aide. htm", NewWindow:-True 
End Sub 


L'argument NewWindow est à True pour que la page d'aide apparaisse dans une nouvelle fenêtre, 
ce qui est nécessaire dans ce contexte. Voici une version qui fonctionne aussi sur Mac : 
Sub Aide () 
ThisWorkbook.FollowHyperlink Address:=ThisWorkbook.Path & _ 
Application.PathSeparator & "aide.htm", NewWindow:-True 


End Sub 
Si, dans l'argument Address vous fournissez une adresse Internet (exemple 


http://www.monsite.fr/ aide pour. facturation.htm ), on ira chercher le fichier sur Internet à 
condition que l'ordinateur de l'utilisateur soit connecté. 
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GESTION AVEC DICTIONNAIRE DE DONNÉES 


On peut rendre le programme capable de s'adapter à des variations d'emplacement de données du 
classeur de données. Celui-ci aura une feuille supplémentaire appelée DictDon (dictionnaire des 
données) qui établira la correspondance entre le nom des données et leur emplacement. Pour un 
classeur BD, c'est le numéro de colonne qu'on indiquera, pour un classeur ordinaire on indiquera 
l'emplacement complet. Exemple d'aspect d'une feuille DictDon (Le libellé Nomdonnée est en A1). 


Nomdonnée Adresse 

Nom Feuil1!C4 
Prénom Feuil1!C5 
Matricule Feuil2! E9 


et on écrira une fonction PrendDon (Wk As Workbook,NomDon As String) As Variant 
pour récupérer une donnée et une procédure MetDon(Wk As Workbook,NomDon As String, 
Donnée As Variant) pour mettre la donnée où il faut. Elles obtiennent l'adresse par 
AdrDon(Wk As Workbock,NomDon As String) As String. Wk étant le classeur concemé. 


Public Function AdrDon(Wk As Workbook,NomDon As String) As String 
Dim i as Integer 
With Wk.Sheets ("DictDon") 
For i=2 to 100 
If IsEmpty(.Cells(i,1)) Then Exit For 
If .Cells(i,l).ValuesNomDon Then AdrDon-.Cells(i,2).Value: 
Exit Function 
Next i 
End With 
AdrDon-"" 
End Function 
Public Function PrendDon(Wk As Workbook,NomDon As String) As Variant 
Dim Adre As String, p as Integer 
Adre=AdrDon (Wk, NomDon) 


If Adre="" Then 

PrendDon 

MsgBox NomDon +" Non trouvé" 
Else 


p = InStr(Adre, "!") 
PrendDon = Wk.Sheets(Left(Adre, p - 1)). 
Range (Mid(Adre, p + 1)).Value 
End If 
End Function 
Public Sub MerDon(Wk As Workbook,NomDon As String,Donnée As Variant) 
Dim Adre As String, p as Integer 
Adre-AdrDon (Wk, NomDon 


If Adre="" Then 
MsgBox NomDon +" Non trouvé" 

Else 
p = InStr(Adre, "!") 
Wk.Sheets (Left (Adre, p - 1)) -Range (Mid (Adre, 

p + 1)).Value = Donnée 
End If 
End Sub 


On peut d'ailleurs subdiviser l'indication de l'emplacement en plusieurs cellules, respectivement 
feuille, ligne et colonne : 


Nom Feuili 4 3 
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GESTION DES VERSIONS 


Qui dit développement progressif dit versions successives. Le point délicat est que les classeurs de 
données peuvent aussi avoir des versions successives, ce qui pose le problème de l'accord entre 
une version du programme et une version du classeur de données. 


Pour le classeur programme, comme pour un classeur de données la date de demière modification 
doit être clairement identifiée sur le listing. Pour un classeur programme, un commentaire en tête 
doit identifier la date de dernière modification générale et, éventuellement, en tête de chaque 
procédure ou fonction, un commentaire doit identifier la date de dernière modification de cette 
routine. La date générale doit être postérieure à toutes les dates de routines. 

Il doit éventuellement y avoir une variable qui tienne ces informations, avec une instruction du 
genre DDM="15/01/15". Cette variable servira pour le point suivant. 


Pour les classeurs de données il doit y avoir sur une feuille, à un emplacement éventuellement 
caché une date de la dernière modification de ce classeur. Le programme doit inscrire à côté la 
valeur de sa DDM. Cela montrera que la version concemée du classeur de données est compatible 
avec la version DDM du programme. 


Il faut la méme gestion pour les BDi créées par le programmeur et leur module associé. 


Sur la feuille Menu, on peut en face de chaque bouton appelé inscrire la date du jour : cela 
marque la date de dernière utilisation de la fonctionnalité. 

Si on désire une gestion vraiment précise de ces versions, il faut tenir un classeur journal : on écrit 
directement les lignes concernant les modifications du programme (avec toutes les explications 
concernant la modification). Les lignes concemant une exécution doivent être créées par le 
programme : elles précisent la version du programme et les versions des classeurs de données 
utilisés. 


On peut en plus tenir un numéro de version qui, lui, ne change qu'en cas de changement de 
fonctionnalités. Ainsi les dates de versions entre les numéros signalent des corrections d'erreurs. 


PARTIE 3 
CAS PRATIQUES 


Résultats de Football 


Étape 1 - Analyse des matchs 


Étape 2 - Classement 
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ÉTAPE 1 — ANALYSE DES MATCHS 


1. LE PROBLÈME DE GESTIONFOOT 
Ce cas est un extrait d'une application que nous avons développée pour l'Association Sportive 
Cambodgienne. Nous tenons à remercier son président M. Neang de nous avoir autorisés à en 
utiliser une partie pour ce livre. 
On dispose d'un classeur RESULTATS-1516.xlsx (1516 est ce qu'on appelle la Saison, ici de 
Septembre 2015 à Août 2016, comme les années scolaires), dont la 1'e feuille RESULTATS a 
aspect : 


^ 8 [ D ErG n 
' Date | — Mateh | Score | index | — — Arbitres _ - Coser stene 


L 
7 | 29/08/2012 |AS Malgache (A) | ASA Figondes 
i 


ZUON (CS PTT Twoo — | Aw — [9 | 6 pe = 

3 AS Malgache (A) ) AS Funa d'aleray 2 oj P 

4 AS CAMBOOUIENNE | US Matro DAM (H) 4 || 

5 ASA Rigondes À MF La Providence 313 

5 JASC Accolado — — — / Internationa OL da Pars — | 1 L = = 
4 

a ASC Accolade AAF La Providence. 313 
3 
D 


9 CS PTT Tursigo International OL de Paris 
10 AS CAMBODGIENNE AS Fura d'ateréry 

" AS Copa US Metro DAM (B) 

12 1 


RESULTATS | CLASSEMENTS | ÉQUIPES 5 


On considérera dans cette étude que cette feuille est remplie directement sous Excel. On voit que 
chaque ligne représente un match avec les équipes et le score du match. La colonne H peut 
recevoir R (match remis, donc la ligne ne compte pas), P (pénalité : dans ce cas, le score inscrit 
est conventionnel, souvent 2 à 0 et, bien sûr c'est l'équipe qui a la pénalité qui est considérée 
comme battue) ou F (forfait : dans ce cas le score est forfaitaire 3 à 0, 0 pour l'équipe qui a 
déclaré forfait). 

Le programme doit d'abord analyser cette feuille et en tirer des cumuls par équipe à installer dans 
la feuille EQUIPES. On calcule par équipe le nombre de matchs joués (J), de matchs gagnés (G), 
perdus (P), nuls (N), le cumul des buts marqués (SCG), encaissés (SCP), le nombre de points 
(PTS : un match gagné rapporte 3 points, nul 1, perdu 0) et le nombre de pénalités ou forfaits 
(PF). Les noms entre () sont les noms des variables que nous utiliserons dans le programme (pour 
un match) et les en-tétes des colonnes de la feuille de cumuls qui doit avoir l'aspect (ici résultat 
pour les données de la figure précédente) : 


A B c D E F G H | J 
| EQUIPE J G P N $CG SCP Pts P/F 
| 


1 

? I 

3 |AAF La Providence 

4 |AS CAMBODGIENNE 
5 |AS Copa 
6 
7 
8 


AS Furia d'alleray 
AS Malgache (A) 
ASA Rigondes 
9 ASA Rigondes 
10 |ASC Accolade 
11 |CS PTT Turbigo 
12 International OL de Paris 
13 |US Metro DAM (B) 2 


DNN = 2N NN NN 
Oaa- O0OO0OONONNO 
n60N 000 
-—-ocooom 
o-—-0o0-0 
S22o00000Nv 
o-o-ooo-oococ 


emo 


sw 


RESULTATS CLASSEMENTS EQUIPES [o] 4I 


L'obtention de cette feuille formera notre 17€ étape, la 2? étant d'obtenir un classement dans la 
feuille CLASSEMENTS. Cela implique un transfert des données de EQUIPES vers CLASSEMENTS 
avec certains changements de colonnes et le calcul de la différence de buts (marqués - encaissés). 
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Ensuite, le classement se fait en majeur sur les points et en mineur sur la différence de buts. Voici 
‘aspect de la feuille avec les données ci-dessus : 
A B C DEF GiH! I J K L M 
1 
2 IN EQUIPES [J [Pts] € | N | P [FP] Pour [Contre| Dt | -------------------- , 
- - R y F^ H ' 

3 AS Copa 2|e|[2|o[|o|o0| 12 o | #2 ! Les bordures de ! 
4 AS CAMBODGIENNE 2[e|2[|o[|o|o| 8 1 7 iis lencdentéte | 
5 AS Malgache (A) 2|e|2|oļoļo| 6 1 s| (29 : 
6 International OL de Paris |2|3|1|o0|1|1| 3 4 1 | :etlesnomsdes ; 
7 CS PTT Turbigo 121311101110, 3 | 5 2 | rubriques sont ' 
B L AAF La Providence 2|2|0|2|0]|0 6 6 0 : obtenus à la main ' 
9 ASA Rigondes 1[1/[0/|1/|0/0 3 3 0 i fai H 
10 ASC Accolade 2|1[o|1[|1|1] 4 e [æ] : Uneitolsipour i 
11 ASA Rigondes 1|[o[|o]o[|1]0]| 1 4 | 3 | : toutes. i 
12 AS Furia d'alleray 2[o|ojo]2|1[| 0 6 6 ds ees, 
13 US Metro DAM (B) 2|o[oj]oj|]2]o] t: 1 [-0 

vs RESULTATS | CLASSEMENTS | ÉQUIPES | @) 1 

2. LE CLASSEUR PROGRAMME AU DÉPART 
Le classeur programme s'appelle au départ GestFoot0.x/sm. 1l est obtenu en créant un classeur 


formé d'une seule feuille nommée MENU. Ensuite, on y implante un bouton. La marche à suivre est 
décrite dans la partie Apprentissage : page 28 et 151. Rappelons que la solution que nous 
préférons est de tracer un rectangle grâce a C /nsertion — Illustrations — Formes. 

= Clic droit, Modifier le texte : tapez le titre du bouton (ici : Classement). 

= Clic droit, A/fecter une macro: choisissez 7ra/tementen supposant qu'on a implanté cette 
routine dans le module. 
Pour formater les boutons : 

= Clic droit sur le texte, puis dans la petite boite à outils de formatage, nous suggérons Aria/, 
12 pt, gras centré, couleur de texte noir. 
m Clic droit prés du bord du bouton puis Format de la forme ; il vient un volet : choisissez 
Remplissage Remplissage uni et comme Cou/eur un gris clair ; ensuite Ligne 77a/t plein, 
Couleur : noir ; Largeur : 34 pt ou 1 pt. 
= Clic sur le texte. Dans © Accue// — Alignement, centrage horizontal et vertical. 


A B c D E F G 


2 Gestion Foot 


i] Version du 


MENU. ($ 
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On prévoit de mettre la date de version dans la cellule F3. 

Il faut créer le premier état du module principal. Rappelons la marche à suivre, cela constitue un 
entraînement profitable (vous n'aurez pas à l'effectuer si vous téléchargez les exercices) : 

m Appelez l'éditeur VBA par [Ait F1 i]. 


wm Insertion — Module. Vous êtes prêt à taper le texte de Module 1. 

En principe, pour cet état de départ, il suffirait d'implanter la procédure 7raitement vide : elle 
est nécessaire pour pouvoir l'associer au bouton. Mais nous en avons profité pour implanter dés 
maintenant la fonction Cuvert (copie un peu simplifiée de celle de la partie Apprentissage : 
page 145) et la fonction Saison (qui calcule : 516 par exemple) : 

pe -Ouvert--- 


Function Ouvert(NN As String) As Boolean 
Dim w As Workbook 


Ouvert = False 
For Each w In Workbooks 

If w.FullName = NN Then Ouvert = True: Exit Function 
Next 


End Function 


VSS SS SS SS Saison--- 
Function Saiscn(d As Date) As String 
Dim y As Integer 
y = Year (d) 
If Month(d) > 8 Then 
Saison = Rignt(CStr(y), 2) + Right(CStr(y + 1), 2) 
Else 
Saison = Right (CStr(y - 1), 2) + Right(CStr(y), 2) 
End If 
End Function 


f'--——--------------------------------------------2---2--- Traitement--- 
Sub Traitement () 


knd Sub 


Ouvert examine les noms complets (avec disque et répertoire : propriété ru11Name) de tous les 
classeurs ouverts et renvoie la valeur True si le nom cherché est trouvé. 

Saison renvoie la concaténation des deux derniers caractéres des deux numéros d'année de la 
saison sportive. y étant l'année en cours (disons 2016), si le numéro de mois est »8 (septembre à 
décembre) la saison est y,y+1 (1617), sinon (janvier à août), la saison est y-1,y (1516). 

Ceci constitue le classeur GestFoot0.x/sm. Pour effectuer l'étape 1, vous l'enregistrez sous le nom 
GestFooti.xlsm : dans le répertoire des exercices, le classeur de même nom téléchargé sera 
écrasé (mais vous aurez conservé le fichier téléchargé original dans un autre dossier). 


3. ÉTAPE 1 : PREMIERS ÉLÉMENTS 
Le traitement consiste en quatre actions : 
- un prologue où on effectue certaines initialisations et ouvre le fichier RESULTATS... ; 
— l'analyse des matchs et cumuls par équipes ; 
— le transfert vers la feuille CLASSEMENTS ; 
— le classement. 
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L'étape 1 sera terminée lorsque l'analyse sera implantée. Pour ce début d'étape, nous créons dans 
le module les procédures vides Analyse, Transfert et Tri et nous implantons les appels en fin 
de la procédure Traitement. 


Sub Traitement () 
Analyse 


Transfert 


Wimmer n a ne enw en mam nt Oe rs ns emer et me rti Analyse--- 


Dew eee eee a aree um arem emer Der rr aem a en ee See m eni cl Transfert--- 


End Sub 


Construisons le début de Traitement. Nous introduisons les variables : 


InitFait (booléen vrai si Init a été exécutée), RDatEx (emplacement où s'écrit la date de 
dernière exécution), Chem (répertoire des fichiers), Ps (séparateur \ sur PC, : sur MAC), NFRes 
(nom complet du fichier résultats), NomRes (nom du fichier résultats), WkRes (classeur résultats), 
Shkes (feuille RESULTATS), Snc1ass (feuille CLASSEMENTS), quip (équipe examinée) et Shk:q 
(feuille EQUIPES), d'où les déclarations en tête de module : 


Dim InitFait As Boolean, RDatEx As String 
Dim Chem As String, Ps As String, NFRes As String, NomRes As String 
Dim WkRes As Workbock, ShRes As Worksheet, ShClass As Worksheet 
Dim Equip As String, ShEq As Worksheet 
Question : pourquoi ne pas utiliser Public ? Réponse : c'est pour mieux tenir compte du fait qu'il 
n'y a qu'un seul module ! 
Init positionne initrait, inscrit la date en Rdatex (avec *ormulaLocal pour éviter 
l'inversion mois-jour), sauve le classeur programme (puisqu'on vient de mettre la date) et initialise 
les chemins et noms de fichier. Le nom RESULTATS-1213 est construit en appelant Saison: 
Sub Init() 
InitFait - True 
Range(RDatEx).FormulaLocal - Format(Date, "dd/mm/yy") 
ThisWorkbook.Save 
Ps = Application.PatnSeparator 


Chem = ThisWorkbock.Path + Ps 
NomRes = "RESULTATS-" + Saison(Date) + ".xlsx" 
NFRes = Chem + NomRes 

End Sub 


Le début de la procédure Traitement initialise RdatEx et ouvre le classeur résultats (s'il était 
déjà ouvert, on le referme d’abord). 
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Notez la prévision d'un mot de passe qu'on installera peut-être une fois le système au point. 
Ensuite on initialise les variables qui serviront à désigner ce classeur et ses feuilles : 


Sub Traitement | 
RDatEx = "F3" 
If Not InitFait Then Init 
If Ouvert (NFRes) Then Workbooks (NomRes) .Close 
Workbooks.Open Filename:=NFRes, Password:="" 
Set WkRes = ActiveWorkbook 
Set ShRes WkRes.Sheets ("RESULTATS") 
Set ShEq - WkRes.Sheets ("EQUIPES") 
Set ShClass - WkRes.Sheets ("CLASSEMENTS") 
Analyse 
Transfert 
Tri 
End Sub 


4. LA PROCÉDURE ANALYSE 


La procédure Analyse va examiner chaque ligne de match (dans la feuille RESULTATS) et noter 
(dans les variables J, G, etc.) ce qui s'ajoute pour l'équipe concernée. Puis, dans la feuille 
EQUIPES, elle va chercher si cette équipe figure déjà. 

Dans ce cas, on ajoute les données trouvées aux valeurs correspondantes dans leur colonne. 
Sinon, on insére une ligne pour cette équipe à l'emplacement voulu par l'ordre alphabétique. On a 
donc deux boucles imbriquées (indices 11 et kk). 


Mais on a une boucle externe en plus : chaque ligne de match doit étre examinée deux fois : une 
fois pour l'équipe en colonne 2, une fois pour l'équipe en colonne 4, d'oü la structure : 


For kE = 2 To 4 Step 2 ' kE=2 puis 4 
For ll - 2 To 5000 ' lignes de match 
If IsEmpty.. 
Equip = … ' équipe et ses données 
if RPF<> "R" Then ' ne tient compte des données que si 
pmo " le match n'est pas remis 
For kk = 3 To 500 ' oà mectre les données dans EQUIPES 
If IsEmpty.. 
Next kk 
ShEq.Cells(kk, kEEq).Value = Equip ' met cu cumule les données 
ShEq.Cells(kk, kEJ).Value = ShEq.Cells(kk, kEJ).Value + J . 
End If 
Next 11 
Next kE 


On introduit les variables 7, C, >, N, SCG, SCP, PTS et PF: données qui seront cumulées 
dans £QUIPES, déjà décrites ci-dessus. On a en outre les variables obtenues sur la feuille 
RESULTATS : ki: (colonne de l'équipe : 2 ou 4), kSCM (col. du score de l'équipe en cours), xsca 
(col. du score de l'adversaire), RPF (R : remis, > pénalité, F forfait), SCM (score de l'équipe en 
cours), SCA (score de l'adversaire). On a enfin des constantes qui donnent les numéros de colonne 
des données : k... sur la feuille RESULTATS, xz... sur la feuille EQUIPES d'où les déclarations 
ajoutées en tête de module et la procédure : 
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Dim J As Integer, G As Integer, P As Integer, N As Integer 

Dim SCG As Integer, SCP As Integer, PTS As Integer, PF As Integer 
Dim kE As Integer, kSCM As Integer, kSCA As Integer, RPF As String 
Dim SCM As Integer, SCA As Integer 


Const kRPF - 8, kE 
kESCG - 6, k 
Sub Analyse() 
Dim ll As Integer, kk As Integer 
ShEq.Activate 
ShEq.Range ("A2:I1000").Clear 


Eg = 1, KEd = 2, KBG 3, KEP = 4) KEN = 5; 
ESCP = 7, kEPts = 8, kEPF = 9 


For kE = 2 To 4 Step 2 
If kE = 2 Then o 
kSCM = 5 
kSCA = 7 
Else 
kSCM = 7 
kSCA - 
End If 
For 11 = 2 To 5000 
If IsEmpty(ShRes.Cells(11, kE)) Then Exit For 


Equip = ShRes.Cells(1l1, kE).Value 
RPF = ShRes.Cells(11, kRPF).Value 
If RPF <> "R" Then 


SCM = ShRes.Cells(11, kSCM).Value 
SCA = ShRes.Cells(11, kSCA).Value 


SCG = SCM 
SCP = SCA 
Select Case SCM - SCA o 
Case Is » 0 
G-1 
P=0 
N 
ETS = 3 
PF = 0 
Case 0 
G=0 
E = 0 
N = 1 
PTS = 1 
EF = 0 
Case Is < 0 
G = 0 
E = 1 
N = 0 
PTS = 0 
If RPF <> "" Then PF = 1 Else PF = 0 
End Select 
For kk = 3 To 500 


If IsEmpty (ShEq.Cells(kk, kEEq)) Then Exit For 
If Equip = ShEq.Cells(kk, kEEq).Value Then Exit For 
If Equip < ShEq.Cells(kk, kEEq) .Value Then 
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ShEq.Cells(kk, kEEq) .EntireRow.Insert e 
Exit For 
End If 

Next kk 
ShEq.Cells(kk, kEEq).Value - Equip o 
ShEq.Cells(kk, kEJ).Value = ShEq.Cells(kk, Value + J 
ShEq.Cells(kk, kEG).Value = ShEq.Cells(kk, .Value + G 
ShEq.Cells(kk, kEP).Value = ShEq.Cells(kk, .Value + P 
ShEq.Cells(kk, KkEN).Value = ShEq.Cells(kk, ).Value + N 


ShEq.Cells(kk, kESCG) .Value= ShEg.Cells(kk, kESCG).Value + SCG 
ShEq.Cells(kk, kESCP).Value- ShEq.Cells(kk, kESCP).Value + SCP 
ShEq.Cells(kk, kEPts).Value- ShEq.Cells(kk, kEPts) .Value + PTS 
ShEq.Cells(kk, kEPF).Value = ShEq.Cells(kk, kEPF).Value + PF 
End If 
Next 11 
Next kE 
End Sub 


kE (colonne de l'équipe) implique les colonnes des scores ©. 


Selon les scores, on sait ce qui arrive à l'équipe, d'où le Select Case de calcul des données à 
cumuler 6. 


La structure de la recherche sur la feuille EQUIPES est une combinaison des structures Insérer un 
élément à sa place et € Regroupement des données (voir partie Apprentissage : page 144). 
Normalement, les instructions O devraient étre différentes selon qu'on vient d'insérer une ligne 
vierge (on doit seulement mettre les données) ou que l'équipe avait été trouvée (on doit ajouter 
les données) ; mais en fait, on peut ne pas distinguer : cela revient à réécrire l'équipe si elle avait 
été trouvée, et à ajouter les données à 0 (= les mettre) si c'est sur une ligne vierge. 

On remarque aussi, au début de la procédure, que l'on vide la feuille £QUIPES, ce qui revient à 
recommencer tout le cumul à chaque exécution : on efface d'abord l'ancien cumul. 

Vous avez maintenant le classeur GestFoot1.xlsm dans son état final. Sauvegardez-le avant 
d'essayer une exécution qui devrait construire la feuille EQUIPES comme le montre la figure du bas 
de la page 158. (Bien sür vous avez par ailleurs un exemplaire inchangé du classeur téléchargé). 
Sauvegardez aussi ce même classeur sous le nom GestFootZ.xlsm : il va maintenant nous servir de 
point de départ pour l'étape 2. 
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1. LE TRANSFERT 
Nous devons d'abord transférer les données cumulées des équipes vers la feuille CLASSEMENTS 
avec les changements de colonnes voulus. Nous introduisons les constantes kC... pour les numéros 
de colonnes dans la feuille CLASSEMENTS (à ajouter en téte de Module 1) : 
Const KCEq = 2, kCJ = 3, kGbES = 4, KCG = 5, KCN = 6, KCP = 7, 

KCPF = 8, kCSCG = 9, kCSCP = 10, kCDiff = 11 


On calcule en plus la différence de buts d'où xcpi** son n? de colonne. Avec ces constantes, la 
procédure Transfert est évidente : 


Sub Transfert () 
Dim 11 As Integer 
ShClass.Range("A3:L1000").Clear 
For 11 - 3 To 5000 
If IsEmpty (ShEq.Cells(ll, KEEq)) Then Exit For 
ShClass.Cells(ll, kCEq) = ShEq.Cells(ll, kEEq) 


ShClass.Cells(11, kCJ) = ShEq.Cells(1ll, KEJ) 
ShClass.Cells(11, kCPts) - ShEq.Cells(ll, kEPts) 
ShClass.Cells(11, kCG) = ShEq.Cells(11, kEG) 
ShClass.Cells(ll, kCN) = ShEq.Cells(1ll, KEN) 
ShClass.Cells(ll, KCP) = ShEq.Cells(ll, KEP 
ShClass.Cells(ll, kCPF) = ShEq.Cells(11, kEPF) 


ShClass.Cells(ll, kCSCG) = ShEq.Cells(ll, kESCG) 
ShClass.Cells(11, kCSCP) = ShEq.Cells(ll, kESCP) 
ShClass.Cells(ll, kCDiff) = ShEq.Cells(11, kESCG) - 
ShEq.Cells(11, kESCP) 
Next 1l 
End Sub 


Vous sauvegardez le classeur sous le nom GestFoot2.x/sm. Essayez une exécution pour vérifier 
que les données sont bien transférées en feuille CLASSEMENTS et qu'elles sont dans les bonnes 
colonnes. 

Sauvegardez ensuite le classeur sous le nom GestFoot3.x/sm. Il nous servira de point de départ 
pour la suite de l'étape 2. Si vous étes génés par le fait que le classeur final de l'étape 2 ait le n? 3, 
adoptez respectivement les noms GestFoot1 5.xlsm et GestFoot2.x/sm. 


2. ENREGISTREMENT DE MACRO POUR LE TRI 


Pour savoir comment programmer le tri (et aussi les bordures), nous allons effectuer l'opération 
sous Excel, mais en mode enregistrement de macro. 

m Dans la fenêtre Excel du classeur programme, faites © Développeur — [Code] — Enregistrer 
une macro. 


» DR 

m Passez à la fenétre du classeur résultats (il doit étre ouvert depuis la derniére exécution 
puisque le programme ne le ferme pas), feuille CLASSEMENTS (où il doit y avoir les données 
cumulées). Cliquez sur B3 (une des cellules du tableau). 

m CDONNÉES — [Trier et filtrer] — Trier. Dans la BDi, dans Trier par : choisissez Pts et Du plus 
grand au plus petit, ensuite Ajouter un niveaul et dans Puis par : choisissez Diff et Du plus 
grand au plus petit et OK. 
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Pour les bordures : 
m Sélectionnez de la cellule B3 à la fin (dans nos exemples, c'est K13). 


= Utilisez la liste déroulante du bouton bordure dans Accueil — [Police], icône — 7, 
commande Toutes les bordures (quadrillé complet). 


= C Développeur- [Code] - Arrêter l'enregistrement. 
L'enregistrement a été mis dans un module Module 2. Voici le début de la routine : 


Windows ("RESULTATS-1213.xlsx") .Activate 
Range ("B3") .Select 
Range ("B2:K13") .Sort Keyl:=Range ("D3"), Orderl:=xlDescending, 
Key2:-Range("K3"), Order2:-xlDescending, Header:=xlGuess, _ 
OrderCustom:=1, MatchCase:=False, Orientatio 1TopToBottom, 
DataOptionl:=xlSortNormal, DataOption2:-xlSortNormal 
Range ("B3:K13") .Select 
Selection.Borders (xlDiagonalDown).LineStyle = xlNone 
Selection.Borders (x1DiagonalUp) .LineStyle = xlNone 
With Selection.Borders (xlEdgeLeft 
.LineStyle = xlContinuous 
-Weight = xiThin 
-ColorIndex = xlAutomatic 
End With 
"et séquences analogues pour les autres segments de bordure 


On copie cette routine dans Tri de module 1 avec quelques arrangements. La premiére instruction 
est à remplacer par une simple activation de la feuille. Le Range de Sort doit être paramétré : si c 
est la cellule de tête (B3), c. End (x1Down) .End (x: ToRight) est la cellule de fin du tableau, ce 
qui nous amène à sélectionner le tableau (on n'a pas besoin de la ligne de titres) par : 


Set c = Range ("B3") 
Range(c, c.End(xlDown).End(xlToRight)).Select 


et écrire Selection.Sort . Parmi les paramètres, nous supprimons Mat chCase et les 
DataCption ; on pourrait probablement supprimer aussi Orientation. 


Nous ajoutons Selection.HorizontalAlignment - xlCenter pour centrer les données. 
Pour les bordures, pour ne pas répéter 6 fois une séquence presque identique, nous introduisons 
une procédure : 


Sub Bord(x As XlBordersIndex) 
With Selection.Borders (x) 
.LineStyle = xlContinuous 
.Weight = xlThin 
-ColorIndex - xlAutomatic 
End With 
End Sub 


Le moins évident est le type de l'argument. Ensuite, on l'appelle pour chaque segment de bordure. 
D'où la procédure Tri : 
Sub Tri() 

Dim c As Range 

SnClass.Activate 

Set c = Range("B3" 

Range(c, c.End(xlDown).End(xlToRight)).Select 
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Selection.Sort Keyl:-Range("D3"), Orderl:-xlDescending, 
Key2: ange ("K3"), Crder2:-xlDescending, Header:=xlGuess, 
Orientation:=xlTopToBotton 


Selection.HorizontalAlignment = xlCenter 
Bord xlEdgeLeft 
Bord xlEdgeTop 
Bord xlEdgeBottom 
Bord xlEdgeRight 
Bord xlInsideHorizontal 
Bord xlInsideVertical 
Range ("Al") .Select 
End Sub 


La dernière instruction supprime la sélection du tableau. 


On remarque qu'on ne ferme pas le classeur résultats. Cela permet à l'utilisateur de regarder le 
classement obtenu et il peut toujours fermer le classeur manuellement. C'est pourquoi, pour 
l'ouverture, il faut tester si le classeur est déja ouvert à l'aide de la fonction ouvert. 


Vous devez maintenant sauvegarder le classeur sous le nom GestFoot3.x/sm qui représente l'état 
final de ce projet. Vous pouvez préalablement supprimer le Module 2 (vous en avez copie dans 
l'exemplaire original téléchargé) : 

m Sélectionnez-le dans l'arborescence du projet. 

= Aichier— Supprimer Module 2. 

m Répondez Non à la question d'exporter le module. 


L'essai d'exécution doit maintenant remplir la feuille EQUIPES avec les cumuls par équipes puis 
produire le classement dans la feuille CLASSEMENTS. 


Système de QCM 


Étape 1 — Logiciel auteur 
Étape 2 - Déroulement du quiz 


Étape 3 - Statistiques 


Quelques perfectionnements 
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1. VUE GÉNÉRALE DU PROJET 


Il s'agit de proposer un systéme de Quiz (interrogation) par QCM (Questionnaires à choix 
multiples). Du point de vue de l'élève, le système propose de choisir un thème (domaine) et un 
nombre de questions (10,15 ou 20). Il construit alors un questionnaire en sélectionnant au hasard 
n questions du théme puis il les propose une par une avec les réponses à choisir dans une BDi. 
Pour chacune, l'élève choisit sa réponse ou passe. À la fin, la performance est évaluée par le 
nombre de réponses justes et le temps moyen passé par question. 

Chaque thème occupe une feuille dans le classeur Questionnaires.x/sx. Le nom de la feuille est la 
désignation du thème. La notion de thème recouvre en fait la matière ou le domaine, mais aussi le 
niveau de difficulté : on pourrait ainsi avoir « Géographie facile » et « Géographie difficile ». Voici 
e début de la feuille VBA de ce classeur : 


^ 5 c D 
1 2 QUESTIONS SUR VBA 
2 Question Réponse 1 Réponse 2 Réponee 3 
Pour passer à lEdteur VBA, 1 faut + 1 
3 taper onr API 


Ffoi cea vu. vor 
On a daur méthodes pour 


déclencher une procédure par 
4 |rmecouroi cher Oui Non 


VBA $ D 


On a en A1 le nombre de questions. En colonnes A à D, la question et jusqu'à trois réponses 
possibles : certaines questions peuvent n'en proposer que deux (Oui/Non ou Vrai/Faux). Le 
véritable avantage de notre système est que, en commentaire des cellules réponses se trouve la 
réaction à cette réponse, donc avant la barre |, les points rapportés (0 ou 1, mais on pourrait 
imaginer un choix plus nuancé : 0$ mauvaise réponse, 2% la bonne réponse, 1% réponse où il y a 
du vrai) et, derrière la barre |, le message qui sera délivré à l'élève : on peut lui donner une 
explication succincte de son erreur et le renvoyer à un livre. 

Le classeur Questionnaires.x/sx téléchargé contient une feuille de theme VBA avec 32 questions 
qui vous permettra de tester vos connaissances acquises à la lecture de ce livre. Cela implique de 
redoubler de précautions pour que vos essais du logiciel auteur ne vous fassent pas perdre ce 
classeur afin qu'il soit toujours utilisable en mode élève. Donc, nous répétons le conseil de 
conserver une copie de sauvegarde des fichiers téléchargés. Il y a aussi une feuille avec 20 
questions sur CODE DE LA ROUTE. (État de départ Questionnaires0.x/sx). 


La 1re étape du projet est de constituer le classeur programme Qu/zAuteur1.xísm à partir d'un état 
de départ QuizAuteur0.x/sm. C'est la partie du programme qui permet à un auteur de constituer 
commodément les feuilles de thémes. On pourrait éventuellement se dispenser de cette étape et 
créer les feuilles de thémes directement sous Excel, mais nous pensons que c'est plus facile avec 
un programme. En revanche, nous n'avons pas prévu de fonctionnalité pour modifier une 

question : là aussi, nous considérons que c'est possible sous Excel. 


La 22 étape construit le classeur programme élève, en deux sous-étapes : d'abord choisir les 
questions qui constitueront le questionnaire, ensuite, présenter ces questions à l'éléve. On termine 
en indiquant à l'élève ses performances et en les mémorisant. Partant de QuizEleved.x/sm vous 
passerez à QuizFleve2.x/sm puis à QuizEleve3.xlsm. 
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La 3€ étape est plus simple : elle organise les performances mémorisées pour en tirer les 
statistiques dans le classeur QuizStat.x/sx (état de départ QuizStat0.x/sx). 


Mots de passe 

Il va sans dire que les classeurs de données et le logiciel auteur doivent étre inaccessibles aux 
élèves. C'est pourquoi ils sont tous protégés en lecture et écriture par un mot de passe et les 
classeurs programme ont le projet verrouillé. Pour installer un mot de passe : 

m Dans la BDi de C. Fichier — Enregistrer sous — Classeur prenant en charge les macros, 

choisissez Outils — Options générales et spécifiez les deux mots de passe. 

= Confirmez les deux mots de passe et ok dans les deux BDi qui apparaissent. 

Pour imposer le mot de passe au projet : 

= Dans la fenêtre de l'Éditeur VBA, Outils-Propriétés de VBAProject. 

m Onglet Protection. 

m Cochez M Verrouiller le projet pour l'affichage. 

m Entrez et confirmez le mot de passe. 

Dans les versions téléchargées, nous avons partout utilisé le mot tsoft, donc vous pouvez 
accéder à tous les éléments. Vous devrez changer ces mots de passe pour vos propres 
questionnaires. 


2. CONSTRUCTION DU LOGICIEL AUTEUR 


Nous partons du classeur QuizAuteur0.x/sm qui ne contient que la feuille AUTEUR avec deux 
boutons : 


A B [o D E F 
it] 
2 Préparation de questionnaires 
3 
4 
7 
8 
9 
10 Nouvelles Questions 
11 
12 
13 
14 

| AUTEUR © 


Vous pouvez aussi le construire à partir de rien. La marche à suivre pour installer les boutons a été 
vue au chapitre précédent, donc nous ninsistons pas. 
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Le classeur possède un module Module 1 qui ne contient au départ que les procédures vides 
NouvThem et NouvQuesLion et la fonction Cuvert, identique à celle utilisée au chapitre 
précédent, version simplifiée de celle de la page 146 de la partie Apprentissage. 


v 


SASS a BS 


Function Ouvert (NN As String) As Boolean 
Dim w As Workbook 
Ouvert = False 
For Each w In Workbooks 
If w.FullName = NN Then Ouvert = True: Exit Function 
Next 
End Function 


Di aa SR SE en SS SS CE NouvTheme--- 
Sub NouvTheme() 


End Sub 


LR EE SEE EEE SS NouvQuestion--- 
Sub NouvQuestion() 


End Sub 


Sauvegardez le classeur sous le nom QuizAuteur1.x/sm (vous devez avoir une version intacte du 
classeur téléchargé). Si vous avez construit entièrement le classeur, implantez les mots de passe, 
sinon, ils sont déjà là. 


3. LA PROCÉDURE NOUVTHEME 


Sub NouvTheme () 
Dim tr As Boolean, re 


Init 
Theme = InputBox("Théme", "Nouveau Thème") 
tr = False 


For Each sh In WkQuest.Worksheets 
If sh.Name = Theme Then tr = True: Exit For 
Next 
If tr Then MsgBox "Ce théme existe déja": Exit Sub 
Set ShQuest = WkQuest.Worksneets.Add 
With ShQuest 
.Name = Theme 
-Range ("A1") .Value = 0 


-Range("B1") .Value " QUESTIONS SUK " + Theme 
With .Range("A1:Bl").Font 
.Size - 14 
.Bold = True 
End With 
.Range("A2") - "Question" 
.Range("B2") - "Réponse 1" 
.Range("C2") - "Réponse 2" 
.Range("D2") - "Réponse 3" 


-Range("A2:D2").HorizontalAlignment = xlCenter 
.Range("A2:D2").Font.Bold = True 
-Range ("A3:D100") .WrapText = True 
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.Range("A:D").ColumnWidth - 30 
End Witn 
re = MsgBox("Voulez-vous entrer des questions ?", _ 
vbQuestion + vbYesNo, "QuizAuteur") 
WkQuest.Save 
If re = vbYes Then Questions Else WkQuest.Close 
End Sub 


On commence par appeler la procédure Init qui effectue les initialisations : 


Sub Init() 
Pw = "tsoft" 
NomQuest - "Questionnaires.xlsx" 


Chem - ThisWorkbock.Path 
Ps = Application.PathSeparator 
NFQuest = Chem + Ps + NomQuest 
If Ouvert (NFQuest) Then Workbooks (NomQuest) .Close 
Workbooks.Open Filename:=NFQuest, Password:=Pw, 
WriteResPassword: =Pw 
Set WkQuest = ActiveWorkbook 
End Sub 


Les variables introduites sont : Chem (répertoire), Ps (séparateur \ ou :), WkQuest (classeur 
questionnaire), ShQuest (feuille des questions), sh (feuille courante), NomQuest (nom du 
classeur questionnaire), NFQuest (nom complet), Pw (mot de passe), Theme (thème), NumQ (n° 
de question), Nbo (nombre de questions). Elles sont publiques car on va avoir plusieurs modules 
vu qu'il y aura des BDi. 

Init initialise des variables puis ouvre et active le classeur questionnaire. 


NouvTheme demande le nom de la feuille de questions à créer par InputBox (inutile de créer 
une BDi pour cela). On vérifie qu'il n'y a pas déjà une feuille de même nom. Si tout va bien, on 
crée la feuille et on la désignera par ShQuest. On arrive alors à deux With imbriqués qui 
permettent de remplir le haut de la feuille qu'on vient de créer : le nom de la feuille (= au thème), 
en A1 : 0 puisqu'on n'a encore aucune question, en B1 : le titre avec le théme, et on formate en 
gras et 14 pts, en A2, etc. les titres de colonne, centrés gras. On fixe la largeur des colonnes et on 
met en mode retour à la ligne automatique les cellules qui contiendront questions et réponses. 
Enfin, on demande à l'utilisateur s'il veut tout de suite entrer des questions, auquel cas on appelle 
la procédure Questions qui acquiert une série de questions. 


B 


ENTRÉE DES QUESTIONS 


On utilise deux procédures : NouvQuestion qui appelle Questions. Les variables publiques 
supplémentaires qui s'ntroduisent sont : Quest (la question), Rep (3) (les réponses à proposer), 
C (3) (les commentaires), Sat ist (vrai si on a obtenu une question), Dernier (vrai si c'est la 
dernière de la série), 1: a9 (ligne de la question), Co1R (colonne de la réponse). 


Sub NouvQuestion() 

Init 

Satisf - False 

UF Them.Show 

If Satisf Then 
Set ShQuest = WkQuest.Worksheets (Theme) 
Questions 

Else 
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WkQuest.Close 
End If 
End Sub 


On commence par obtenir le thème. Cette fois on utilise une BDi, UF Them car nous proposerons 
les noms des feuilles existantes dans une ComboBox. Si un thème a bien été obtenu (Satisf à 
rue), on se positionne sur la feuille correspondante et on acquiert une série de questions par 
appel de Questions. 


5. LA BDI UF_THEM 
Elle est très simple : il y a un label (texte : Choisissez un thème), la ComboBox et deux boutons de 
nom d'objet respectif B_ ok ets Annu1, de légende ox et Annuler. Donnez aussi la Caption 
Choix thème à la BDi : 


| ok | Annuler | | 


Le module associé est trés simple : 


Private Sub B Annul Click() 
Satisf - False 
Unload Me 

End Sub 


Private Sub B OK Click( 
Theme = ComboBox1.Text 
Satisf = True 
Unload Me 

End Sub 


Private Sub UserForm Activate () 
ComboBox1.Clear 
For Each sh In WkQuest.Worksheets 
ComboBoxl.AddItem sh.Name 
Next 
End Sub 


La routine UserForm Activate ne fait que remplir la liste de la ComboBox avec les thèmes à 
proposer. Les routines des boutons positionnent Satis: comme il faut et 5. oK récupère la valeur 
de Theme. 


6. ROUTINE QUESTIONS 
Sub Questions () 
NbQ = ShQuest.Range ("Al") .Value 
Dernier = False 
While Not Dernier 
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Satisf = False 
UF EntréeQuesticn.Show 
If Satisf Then 
NbQ = NbQ + 1 
ShQuest.Range("Al").Value = NbQ 
LigQ = NbQ + 2 
ShQuest.Cells(LigQ, 1).Value = Quest 
For ColR = 2 To 4 
SnQuest.Cells(LigQ, ColR).Value = Rep(ColR - 1) 
SnQuest.Cells(LigQ, ColR).ClearComments 
If Rep(CoiR - 1) <> "1 Then 
ShOuest.Cells(LigO, ColR).AddComment C(ColR - 1) 
Next ColR 
WkQuest.Save 
End If 
Wend 
WkQuest.Close 
End Sub 


La structure est trés simple, orchestrée par les booléens Dernier (vrai si demiere question de la 
série) et Satisf (vrai si on a obtenu une question). Ces booléens sont positionnés par les 
boutons de validation de la BDI UF EntréeQuestion. 


On commence par récupérer le nombre de questions NhQ qu'on a déjà puis on arrive à la boucle. 
Dans la boucle, on appelle la BDi. Si on a obtenu une question, on incrémente NbQ, on calcule 
LigQ en conséquence et on transfère les données de la BDi : Quest (la question), le tableau 
Rep etle tableau c. 


7. LA BDI UF_ENTREEQUESTION 


~ uM = = 


Question 


x | OK - Dernière Annuler Quitter 
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Vous devez augmenter suffisamment la taille de la BDi (largeur environ 460, hauteur 400) et celle 
des grandes TextBox (hauteurs 50 et 36, largeurs 378 et 324 environ). En fait, vous créez tous les 
contrôles pour Réponse 1 et vous les recopiez. Le point important est de mettre à True la 
propriété MultiLine des grandes TextBox. Par ailleurs, incorporez les quatre boutons qui 
apparaissent sur la figure (Name : 8. OK, B OKDern, B. Annul, B Quit). 


Module associé : 


Function RecDon() As Boolean 
Dim i As Integer, s As String 


If (TextBox1.Text = "") Or (TextBox2.Text = "") Or _ 
(TextBox5.Text = "") Or (TextBox4.Text = "") Or 
(TextBox7.Text = "") Or (TextBox3.Text = "") Or x 
(TextBox6.Text = "") Or ((TextBox8.Text <> "") And 
((TextBox9.Text = "") Or (TextBoxlO.Text = ""))) Then 

MsgBox "Manque de données" 
RecDon - False 

Else 
S = TextBox4.Text + TextBox7.Text + TextBox10.Text 
TESTS NRA) NO PTS ae EON Or a(S ae UN) Or a 

(s = "101") Or (s = "011") Then 
MsgBox "Deux réponses à 1 point" 
RecDon = False 

Else 
RecDon - True 


Quest - TextBoxl.Text 
Ror d= PES 


Rep(i) = Controls("TextBox" + CStr(3 * (i - 1) + 2)).Text 
C(i) = Controls ("TextBox" + CStr(3 * (i = 1) + 4)).Text + _ 
MINE Controls("TextBox" + GStr(3 * (X = 2) t 3)).Text 
Next i 
End If 


End If 
End Function 


Private Sub B Annul Click() 
Satisf - False 
Dernier - False 
Unload Me 

knd Sub 


Private Sub B OK Click() 
If Not RecDon Then Exit Sub 
Satisf - True 
Dernier - False 
Unload Me 
End Sub 


Private Sub B OKDern Click() 
If Not RecDon Then Exit Sub 


Satisf - True 
Dernier = True 
Unload Me 

End Sub 


Eyrolles/Tso VBA pour Excel versions 2019 et Office 365 


ÉTAPE 1 — LOGICIEL AUTEUR 


Private Sub B Quit Click( 
Satisf - False 
Dernier - True 


Unload Me 
End Sub 
Private Sub UserForm Activate() 

Caption = "Question " + CStr(NbQ + 1j + " Thème " + Theme 
End Sub 


La routine Userkorm Activate ne fait que constituer le titre de la BDi en y incorporant le n? de 
question et le thème. 

Les routines des boutons positionnent les booléens : B OkDern etB Quit mettent Dernier à 
True, les autres à False. Les deux OK mettent Satisf à True, les autres à False. Les deux 
OK appellent la fonction RecDon. Si son résultat est faux, c'est que les données sont incomplètes, 
donc la validation est inhibée. 

RecDon teste si les données sont complètes : il faut une question et au moins deux réponses à 
proposer et, pour chaque réponse, le nombre de points gagnés est indiqué, et une seule des 
réponses gagne 1 point (dans la forme simple que nous implantons ici ; dans des formes plus 
élaborées, les points pourraient être échelonnés). On vérifie en outre que, si on commence à 
donner une 3? réponse, elle est complète. Si oui, les données sont récupérées dans la variable 
Quest et les tableaux Rep et c. Le commentaire est la concaténation du nombre de points (il ny 
a que 0 ou 1), de la barre | et du texte de réaction. Pour réponse 1, on utilise les TextBox 2, 3 et 
4, pour la réponse 2, les TextBox 5, 6 et 7, pour la réponse 3, les TextBox 8, 9 et 10. 


Vous pouvez maintenant sauvegarder le classeur sous le nom QuizAuteuri.x/sm et essayer de 
créer des feuilles de thème et d'y mettre des questions. Travaillez sur le classeur de nom 
Questionnaires.x/sx, sachant que vous avez des copies de sauvegarde de l'original. 

Lors de l'entrée des données, la question et les réactions aux réponses peuvent être multilignes 
(on va à la ligne par Maj+Entréd ou Ctri#Entrée) mais les propositions de réponse ne peuvent pas : 
dans la ListBox où l'élève sera censé choisir, chaque proposition ne peut être que sur une ligne et 
votre « passage à la ligne » apparaîtra comme |. Si votre proposition est trop longue, elle 
n'apparaîtra pas entièrement. La largeur de TextBox que nous avons implantée dans la version 


téléchargée devrait vous guider : ne dépassez pas une ligne de cette largeur pour les propositions. 
On propose en fin de chapitre un exercice pour aller plus loin et pour traiter ce problème. 
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1. PHASE 1 : GÉNÉRATION DU QUESTIONNAIRE 


Du point de vue de l'élève, le questionnaire implique trois phases : 

— la génération où le système crée une suite de n nombres aléatoires qui sont les numéros de 
ligne des questions dans la feuille thème. Ceci implique une BDi où l'élève entre son nom- 
prénom (il faut l'entrer toujours avec la même orthographe pour que les regroupements 
statistiques puissent être effectués), choisit le thème et le nombre de questions (on propose 10, 
15 ou 20, mais on peut aussi taper le nombre souhaité ; s'il est supérieur au nombre de 
questions disponibles, le logiciel le diminue d'office). 

En fin de génération, on crée deux fichiers Nxxx qui est la liste des numéros et Txxx (xxx est 
généré par le programme : 3 premiers caractères du thème, puis les 5 premiers du 
nom/prénom, puis date sous la forme 22-01-16) 

la présentation des questions successives. Cela se passe dans une BDi et l'élève choisit sa 
réponse dans une liste déroulante (à deux ou trois éléments). La BDi a trois boutons : ok 
(compter la réponse et passer à la question suivante), Passe (la question sera reposée 
ultérieurement) et (Abandon. 

— les statistiques : une fois les questions répondues, on ajoute une ligne dans la feuille RESUME 
de QuizStat.x/sx puis on l'incorpore aux autres statistiques. 

La constitution des fichiers en fin de génération nous ouvre deux possibilités : on peut refaire un 

questionnaire avec les mémes questions, ce qui n'était pas évident vu la génération aléatoire et on 

peut ne faire que la génération pour utiliser le fichier comme base d'une interrogation écrite. 

Notons que cette fonctionnalité de génération seule s'adresse aux enseignants et non aux élèves. 

Elle est implantée dans QuizE/eve car ses routines sont utilisées par les autres fonctionnalités de 

QuizEleve : si on l'avait implantée dans QuizAuteur, les procédures correspondantes auraient dû 

être recopiées dans QuizEleve. 

D'où le fichier de départ QuizEleve0.x/sm, avec trois procédures vides Questionnaire, Reprise 

et Génération et les trois boutons associés accompagnés d'une brève explication : 


A B c D E F 6 
1 
2 QUIZ ELEVE 
3 
4 
5 | | Questionnaire | Déroulement normal 
6 d'un questionnaire 
7 | 
8 
9 Nouveau questionnaire mais 
10 reprenant les mêmes questions 
11 qu'un questionnaire précédent 
12 
13 " Génération sans poser les questions 
14 Génération seule pour créer une interrogation 
15| 

ELEVE | © « 


Nous n'insistons pas sur la création de ces boutons ni sur celle du module avec ses trois 
procédures vides, cela devrait maintenant étre connu, sinon, reportez-vous au chapitre précédent 
ou à la partie Apprentissage. 
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Sauvegardez le classeur sous le nom QuizE/evel.x/sm pour démarrer l'étape 2, 1'€ phase. 
Note : les fichiers QuizE/eve n'ont pas de mot de passe puisqu'ils doivent être accessibles aux 
élèves. En revanche, le projet VBA doit être protégé comme vu page 20 de la partie 
Apprentissage. Vous pouvez n'installer cette protection que pour la version finale. 


2. LA PROCÉDURE GÉNÉRATION 


Nous commençons par recopier depuis le Module 1 du dasseur QuizAuteuri.x/sm : les 
déclarations (il s'en rajoutera), la fonction ouvert et la procédure Init. Nous savons que nous 
allons en avoir besoin. Nous introduisons en outre les tableaux DQuest (20) (définition du 
questionnaire, c'est-à-dire les numéros de ligne tirés au hasard — 20 = nombre maximum de 
questions) et Pris(100) (si Pris(i) est True, c'est que i est déjà pris, il faut en tirer un autre 
— nous supposons un max. de 100 lignes par thème) et Lmax, n° de ligne max. sur la feuille de 
thème. Il s'ajoute aussi le nom/prénom de l'élève NP rE1. D'où la déclaration : 


Public DQuest (20) As Integer, Pris(100) As Integer, Lmax As Integer 
Public NPrEl As String 


Donc Génération a la structure : appel de Init, appel de la BDi UF_DefQuest, appel de 
Tirage et appel de EcrFich (qui écrit les fichiers) : 


Sub Génération() 
Init 
UF DefQuest.Show 
If Not Satisf Then Exit Sub 
Set ShQuest - WkQuest.Worksheets (Theme) 
Lmax = ShQuest.Range("Al").Value + 2 
Tirage 
EcrFich 
End Sub 


Les instructions Set ShQuest et Lmax= font double emploi avec des instructions dont on a 
besoin dans le module de la BDi. Vous pourriez donc les enlever ou les mettre en commentaires. 
Nous les laissons pour la clarté : elles ne génent pas. 


La routine Init reçoit en plus comme dernière instruction : 


| WkQuest.Windows(1).WindowState - xlMinimized 


Le but est que le classeur Questionnaires.x/sx n'apparaisse pas en arrière-plan des BDi pendant 
que l'éléve répond au questionnaire : cela pourrait le troubler. Donc on réduit en icóne la fenétre 
du classeur Questionnaires.xlsx. 


3. BD1 UF_DEFQuEST 


Vous pouvez la constituer en recopiant les contrôles de la BDi | Noi Féfacmn où Gin kamo 
UF Them de QuizAuteur1.xlsm avec leurs routines | 
d'événements et en ajoutant la ComboBox de choix du | 
nombre de questions et la TextBox d'entrée du nom/prénom. | me | 
| 
Hi 
| 
$ 
f 
i 


Il n'y a donc aucune difficulté à la construire, nous ne 
Nombre de questions | 


détaillons pas. 
— | ome | 
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Dans le module associé, copiez tout le contenu du module associé à UF_ Them. Il faut ajouter une 
routine de l'événement Enter de la ComboBox2 qui remplit la liste de choix de la ComboBox en 
tenant compte du nombre maximum de questions sur la feuille de thème. 
Linstruction Theme-.. passe de BE OX Click à cette routine. B Ok Click récupère les 
données entrées, notamment Nbo le nombre de questions à tirer au hasard et vérifie qu'elles sont 
complètes, sinon on sort sans valider la BDi. On vérifie aussi que le nombre de questions est «- 
nombre de questions disponibles, sinon on le ramène à ce nombre. Bien sûr, ceci ne fonctionne 
convenablement que si l'on a créé un nombre suffisant de questions. Un questionnaire valable doit 
avoir au moins 15 ou 20 questions choisies parmi au moins 30. On peut à titre d'essai taper un 
nombre trés petit, mais c'est uniquement à titre d'essai. 
Private Sub B Annul Click() 

Satisf - False 

Unload Me 
End Sub 


Private Sub B OK Click() 


If (TextBoxl.Text - "") Or (ComboBoxl.Text - "") Cr — 
(ComboBox2.Text = "") Then MsgBox "Incomplet": Exit Sub 
NPrEl = TextBoxl.Text 


NbQ = CInt (ComboBox2.Text) 
If NbQ > Lmax - 2 Then 
NbQ = Lmax - 2 


MsgBox "Nb quest. ramené à " + CStr(Lmax - 2) 
End If 
Satisf = True 
Unload Me 
End Sub 


Private Sub ComboBox2 Enter () 
Theme = ComboBox1.Text 
If Theme = "" Then MsgBox "Il faut un thème 
Set ShQuest = WkQuest.Worksheets (Theme) 
Lmax = ShQuest.Range("Al").Value + 2 
ComboBox2.Clear 
If Lmax >= 12 Then ComboBox2.AddItem "10" 
If Lmax >= 17 Then ComboBox2.AddItem "15" 
If Lmax >= 22 Then ComboEox2.Additem "20" 
End Sub 


Exit Sub 


Private Sub UserForm Activate() 
ComboBoxl.Clear 
For Each sh In WkQuest.Worksheets 
ComboBoxl.AddItem sh.Name 
Next 
End Sub 


LA PROCÉDURE TIRAGE 


Sub Tirage( 
Randomize 
For LigO = 1 To 100 
Pris(LigQ) = False 
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Next LigQ 
For NumQ = 1 To NbQ 
LigQ = Int((Lmax - 2) * Rnd + 3) 
While Pris (LigQ) 
LigQ = Int((Lmax - 2) * Rnd + 3) 


Wend 
Pris(LigQ) = True 
DQuest (NumQ) = Lig? 
Next NumQ 
End Sub 


Après l'appel de Randomize, on initialise le tableau pris. Ensuite on a une boucle de 1 à NbQ pour 
remplir le tableau DQuest : pour chaque élément, on tire un nombre au hasard entre 3 et Lmax 
(voir Rnd : partie Apprentissage page 107) ; tant qu'il est déjà pris, on retire. 


5. LA PROCÉDURE ECRFICH 


Le premier problème est celui de la dénomination des fichiers. Les fichiers seront dans le 
répertoire du classeur programme, avec l'extension . txt. Le nom est formé de T ou N, puis les 3 
premiers caractères du thème, les 5 premiers du nom/prénom et la date sous la forme 15-12-13. 
Le fichier N (les numéros) commence par le nombre de questions et le thème, le fichier T (texte) 
commence par le nom/prénom, le thème, le nombre de questions. Il est improbable que des 
fichiers de même nom existent déjà : les anciens seront écrasés à moins d'avoir été sauvegardés 
ailleurs. 


Sub EcrFich( 
Open Chem + Ps + "N" + Left (Theme, 3) + Left(NPrEl, 5) + 
Format (Date, "dd-mm-yy") + ".txt" For Output As #1 
Open Chem Ps + "T" + Left (Theme, 3) + Left(NPrEl, 5) + 
Format (Date, "dd-mm-yy") + ".txt" For Output As #2 
Print #1, Theme + vbCrLf; 
Print #1, CStr(NbQ) + vbCrLf; 
Print £2, NPrEl + " " + Theme + CStr(NbQ) + vbCrLf; 
For NumQ = 1 To NbQ 
LigQ = DQuest (NumQ) 
Print #1, CStr(LigQ) + vbCrLf; 
Quest = ShQuest.Cells(LigQ, 1) .Value 
Print #2, Quest + vbCrLf; 
For ColR = 1 To 3 


Rep(ColR) = ShQuest.Cells (LigQ, ColR + 1).Value 
If Rep(ColR) <> "" Then Print #2, " " + Rep(ColR) + vbCrLf; 
Next ColR 


Print #2, vbCrLf; 
Next NumQ 
Close 1 
Close 2 
End Sub 


La structure est trés simple. On traite les deux fichiers en paralléle : aprés écriture des prologues, 
on entre dans la boucle For NumQ sur les enregistrements. On termine par les fermetures. 

Nous terminons les écritures par vbCrLf pour faciliter la visualisation par le bloc-notes. Vous 
pouvez les terminer par vbCr, mais alors il faut visualiser à l'aide de Wordpad. 
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Ceci constitue la forme finale de QuizE/evel.x/sm. Dans la version que nous vous proposons en 
téléchargement, nous avons ajouté les procédures vides Questionnaire, Reprise, LitFich et 
Récupération qui serviront pour la reprise, Déroulement et Stat qui serviront pour les 
phases ultérieures. 


Vous pouvez maintenant essayer QuizElevel.xlsm : cliquez sur le bouton Génération seule. 
L'intérét de la fonctionnalité de création des fichiers est qu'ils permettent de vérifier le 
fonctionnement de la première phase. Ensuite vous sauvegardez le classeur sous le nom 
QuizFleve2.xism : il constitue le point de départ pour la seconde phase. 


6. PHASE 2 : LAROUTINE QUESTIONNAIRE 
La routine Questionnaire est très simple : elle appelle Init, puis Génération, puis 
Déroulement et enfin stat. La seule subtilité est qu'après l'appel de Génération, il faut tester 
Satisf pour le cas où l'utilisateur aurait cliqué sur Annuler] dans la BDi UF_DefQuesr. 


Sub Questionnaire () 
Init 
Génération 
If Not Satisf Then Exit Sub 
Déroulement 
Stat 
End Sub 


Pour la routine Déroulement, nous avons besoin de données supplémentaires : les tableaux 
Répondu (vrai pour chaque question à laquelle l'élève a répondu), Pts (les points obtenus à 
chaque question), Nrep le nombre puis pourcentage de questions répondues, sc le score, TO le 
temps d'origine, T le temps passé, d'où les déclarations : 


Public Répondu(20) As Boolean, Pts(20) As Integer 
Public Nrep As Integer, SC As Integer, TO As Single, 7 As Integer 


On utilisera aussi les booléens Sat i sf mis à faux si l'élève clique sur Passe (passer la question) et 
Dernier mis à vrai sil clique sur Abandon] dans la BDi Uk Question. 


Sub Déroulement( 


Nrep = 0 

For NumQ - 1 To 20 
Répondu(NumQ) = False 
Pts (NumQ) = 0 

Next NumQ 


Dernier = False 
TO = Timer 
While (Nrep < NbQ) And Not Dernier 
For NumQ = 1 To NbQ 
If Not Répondu(NumQ) Then 
LigQ = DQuest (NumQ) 
UF Question. Show 
If Dernier Then Exit For 
If Satisf Then 


Répondu (NumQ) = True 
Nrep = Nrep + 1 
End If 
End If 
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Next NumQ 
Wend 
T = Int((Timer - TO) / NbQ) 
Nrep - Int(100 * Nrep / NbQ) 


SC = 0 
For NumQ = 1 To NbQ 
sc = SC + Pts (NumQ) 
Next NumQ 
sc = Int(20 * SC / NbQ) 
Debug.Print SC & " " & T& " " & Nrep 
End Sub 


On commence par l'initialisation de Nrep et des tableaux Répondu et Pts. Ensuite la structure est 
simple : elle assure qu'on repose les questions sur lesquelles l'élève a passé. 


tant que les réponses sont incomplétes et qu'on n'a pas cliqué sur Abandon 
boucle sur les questions jusqu'à NbQ 

si cette question n'est pas répondue 

| poser la question par appel de 

| UF_Question 

| si Dernier (Abandon) sortir boucle 

| si Satisf 

| | prendre question en compte 

| fsi 


Cette rédaction suppose qu'on obtient les points rapportés par chaque question dans le traitement 
de la BDi. Aprés la boucle tant que, on calcule le temps moyen par question (en secondes), le 
pourcentage de réponses (« 100 96 en cas d'abandon), le score (qu'on ramène à une note sur 20). 


La dernière instruction écrit ces données dans la fenêtre d'exécution, ce qui permet de tester l'état 
actuel du programme. 


7. BDI UF QUESTION 


Choisissez une réponse, pus OK 


x ase nace 


On installe une grande TextBox pour la question et une ListBox pour les propositions de réponses, 
plus trois boutons, B_OX, B Passe et B Abandon. Dans la fenêtre Propriétés, TextEox1 doit 
avoir la propriété MultiLine vraie. Z/stBox1 a MultiSelect 0 (single) et ListStyle 1 (avec 
des boutons radio). 
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Dans la figure précédente, la BDi a pour largeur 356 et la ListBox 336, ce qui permet des 
propositions de réponses en une ligne de 75 caractères (ou un peu plus). C'est cette version que 
nous vous proposons dans le fichier téléchargé QuizFleve2.x/sm. Pour permettre des propositions 
de réponses de 120 caractères, vous pouvez porter la largeur de la BDi à environ 529 et la largeur 
de la ListBox à 500 : vous trouverez cette version dans le fichier téléchargé QuizE/eve3.xlsrn. 

La routine UserForm Activate indique le numéro de question dans le titre de la BDi, puis elle 
met la question dans TextBox1 et les propositions de réponses dans Lis tBcx1. Les routines des 
boutons Passe et Abandon sont simples : elles ne font que positionner les booléens. B OK Click 
prend en compte la réponse faite. Après avoir protesté s'il n'y a pas eu de réponse (clic sur OK par 
inadvertance), on sépare les deux parties du commentaire de part et d'autre de la barre | : les 
points à gauche et le message à droite. 


Private Sub B Abandon Click() 


Satisf - False 
Dernier - True 
Unload Me 

End Sub 


Private Sub B OK Click( 
Dim msg As String, i As Integer 
i = ListBoxl.ListIndex 
If i = -1 Then 
MsgBox "Il faut choisir une réponse" 
Exit Sub 
End If 
msg = ShQuest.Cells(LigQ, i + 2).Comment.Text 
Pts (NumQ) CInt (Left (msg, 1)) 
MsgBox Mid (msg, 3) 
Satisf = True 
Dernier = False 
Unload Me 
End Sub 


Private Sub B_Passe_Click() 
Satisf = False E 
Dernier = False 
Unload Me 

End Sub 


Private Sub UserForm Activate() 
Dim ch As String E 
Caption = "Question " + CStr(NumQ) + " " + Theme 
TextBoxl.Text = ShQuest.Cells(LigQ, 1).Value 
ListBoxl.Clear 
For ColR - 1 TO 3 
ch = ShQuest.Cells(LigQ, ColR + 1).Value 
If ch «» "" Then ListBoxl.AddItem ch 
Next ColR 
End Sub 
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Vous pouvez sauvegarder le classeur sous le nom Qu/zFleve2.x/sm et essayer des questionnaires. 
Vous vérifiez les calculs de performance dans la fenêtre Exécution. On peut passer à la troisième 
phase de cette étape. 


8. PHASE 3 : LA REPRISE 


Pendant de Questionnaire, Reprise appelle Récupération au lieu de Génération: 
Sub Reprise () 

Init 

Récupération 

If Not Satisf Then Exit Sub 

Déroulement 

Stat 
End Sub 


Dans Récupération, on appelle une BDi quasi-identique à UF_DefQuest : seule la ComboBox2 
(nombre de questions) est à remplacer par une TextBox donnant la date du fichier à récupérer. On 
pourrait modifier cette dernière pour qu'elle convienne dans les deux cas avec une variable Mode 
permettant de distinguer. Nous utiliserons cette technique dans d'autres études de cas. 

Ici, nous préférons développer une autre BDI, UF RepQuest, dont, d'ailleurs, beaucoup 
d'éléments s'obtiennent par copie depuis UF_DefQuest. 

Le titre de la BDi est à changer, ainsi que la légende du Label devant la TextBox2 qui devient 
Date du quest. à reprendre. Ce label reçoit aussi un ControlTipText qui spécifie "Sous la 
forme jj-mm-aa". I faut impérativement séparer par des tirets et bien donner deux chiffres : 
07-01-16. De toute facon, cette forme sera rectifiée par la routine. On introduit une variable DD 
pour la date, déclarée dans Module 1 sur la méme ligne que NPrE1 : 


| Public NPrEl As String, DD As String 
pe n — - 
| = 
Reprise questionnaire [éa 
Nom Prénom ou définition Interro 


r 


zl 


Le module associé n'a plus de routine ComboBox? *nteretH OK Click est très légèrement 
adaptée : on ne récupère plus NhQ, mais DD : 


Private Sub B Annul Click() 
Satisf - False 
Unload Me 

End Sub 
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Private Sub B OK Click( 
TR (TextBoxl. Text "") Or (ComboBox1.Text = xx 
(TextBox2.Text - ) Then MsgBox "Incomplet": Exit Sub 
NPrEl = TextBoxl.T'ext 
Theme = ComboBox1.Text 


DD = TextBox2.Text 

If IsDate(DD) Then 
DD = Format (CDate (DD), "dd-mm-yy") 
Satisf = True 
Unload Me 

Else 
MsgBox "Date incorrecte : il faut jj/mm/aa ou jj-mm-aa" 
Exit Sub 

End If 

End Sub 


Private Sub UserForm Activate() 
ComboBox1.Clear 
For Each sh In WkQuest.Worksheers 
ComboBoxl.AddItem sh.Name 
Next 
End Sub 


La routine 3 OK Click vérifie que c'est bien une date qu'on entre et, si oui, force la forme 
voulue dans le nom du fichier. Il faut de plus assurer que c'est la bonne date, mais seul l'utilisateur 
le peut. 


Récupération appelle LitFich au lieu de Tirage etzcrFich: 


f = ---Récupération- 
Sub Récupération ( 

Init 

UF RepQuest.Show 

If Not Satisf Then Exit Sub 

Set ShQuest - WkQuest.Worksneets (Theme) 

LitFich 
End Sub 


nA LitFich- 
Sub LitFich() 

Dim a As String 

On Error GoTo Erop 

Open Chem + Ps + 


+ Left (Theme, 3) + Left (NPrEl, 5) + _ 
DD + ".txt" For Input As #1 


On Error GoTo 0 

Line Input #1, a 

Line Input #1, a 

NbQ = CInt (a) 

For NumQ = 1 To NbQ 
Line Input #1, a 
DQuest (NumQ) = CInt (a) 

Next NumQ 

Close 1 
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Satisf = True 
Exit Sub 
Erop: 
MsgBox "Impossible d'ouvrir " + Chem + Ps + "N" + — 
Left (Theme, 3) + Left (NPrEl, 5) + DD + ".txt" 
Satisf = False 
End Sub 


On remarquera dans Lit Fich l'installation d'une récupération d'erreur possible si on n'arrivait pas 
à ouvrir le fichier Nxxx (suite à une erreur sur le nom ou la date). Le booléen Sat isf est géré 
pour empêcher le déroulement du questionnaire si la lecture n'a pas réussi. Sinon, la lecture est 
très simple puisque Nro donne le nombre de lignes à lire. La première ligne lue est passée : elle 
donne le thème, mais on l'a déjà. Un programmeur « puriste » mettrait un test pour comparer les 
deux valeurs. 


Vous sauvegardez maintenant QuizE/eve2.x/sm dans son état final et vous pouvez tester la 
fonctionnalité de reprise. Sauvegardez-le aussi sous le nom QuizF/eve3.x/sm pour servir de point 
de départ pour la 3€ étape. La version téléchargée a la BDi UF Question élargie. 
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Nous arrivons à la routine Stat. Voici l'aspect de ses trois feuilles : 


4 A B c D E F G 
5| 22/01/2016 CODE DE LA RO. DUPONT J 10 6 100 
6 | 22/01/2016 VBA DURAND C 10 7 100 

RESUME PAR ELEVES PAR THEMES © 

r A Sia € D E se 6 H i 
7 |DUPONT J CODE DE LA ROU 10 100 22/01/2016 10 6 100 
8 |DURAND C VBA 10 100 22/01/2016 10 7 100 

| RESUME PAR ELEVES PAR THEMES «| 
4| A B c D E F 

1 [Thème Nb questionnaires Note moyenne Temps moyen *rep moyen 

2 |CODE DE LA ROUTE 3 13,33 6 100 

3 [VBA 4 15,00 6,30 100 


| RESUME PAR ELEVES PAR THEMES e 


Comme dans les trois feuilles du classeur QuizStat.x/sx, des données identiques sont dans des 
colonnes différentes, nous installons des constantes kR..., kE... et kT... pour les manipuler. Il nous 
faut les variables WkStat, ShRes, SnElev et ShThem pour désigner le classeur et les 
feuilles. Par ailleurs, nous créons un classeur WkRes qui renfermera les résultats du questionnaire. 
Son nom sera R suivi des 3 premiers caractères du thème, des 5 premiers du nom/prénom et de la 
date sous la forme jj-mm-aa. L'éléve pourra demander son impression. 


Les autres variables qui apparaissent sont LicR, LigE, LigT : numéros de ligne dans les feuilles 
de QuizStat, =MNot, EMT4, EMRep : moyennes pour un élève de sa note, du temps et % réponse, 
NE nombre de questionnaires de cet élève et MNot, l'Ml'4, MRep, NT mêmes données mais par 
thème. D'où les déclarations ajoutées : 


Public WkStat As Workbook, WkRes As Workbook 

Public ShRes As Worksheet, ShElev As Worksneet, ShThem As Worksheet 

Public LigR As Integer, LigE As Integer, LigT As Integer 

Public EMNot As Single,EMTa As Single, EMRep As Single,NE As Integer 
Public TMNot As Single,TMTg As Single, TMRep As Single,NT As Integer 


Const kRD = 1, kRThem = 2, kRNel = 3, kRNot = 4, kRTq = 5, kRRep 
Const kENel = 1, kEThem = 2, kENot = 3, kETq 4, kERep = 5, kED 
Const kEMNot = 7, kEMTq 8, kEMRep = 9 

Const kTThem = 1, kTN = 2, kTMNot = 3, kTMTq 


ll 
o OV 


4, kTMRep = 5 


La procédure Stat est très simple : elle ferme le classeur Questionnaires (on n'en a plus besoin) 
et elle ouvre QuizStat. On ne teste pas Ouvert car lui, on le ferme toujours. Ensuite on initialise 
les désignations de feuilles et on appelle Prt.v pour avoir les numéros de première ligne vide dans 
les trois feuilles. Le travail proprement dit se fait en appelant les procédures ResuStat, 
ElevStat et ThemStat, d'où la simplicité de stat : 


Sub Stat() 
WkQuest.Close 
Set WkStat = Workbooks.Open(Filename:=Chem + Ps + _ 
"QuizStat.xlsx", Password:-"tsoft", WriteResPassword:-"tsoft") 


Set ShRes = WkStat.Worksheets ("RESUME") 
Set ShElev = WkStat.Worksheets("PAR ELEVES") 
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Set ShThem = WkStat.Worksheets ("PAR THEMES") 
LigR = PrLv(ShRes) 
LigE PrLv (ShElev) 
Lig? PrLv (ShThem) 
ResuStat 
ElevStat 
ThemStat 
WkStat.Close 
End Sub 


PrLv suit exactement la structure expliquée page 143 de la partie Apprentissage : 


Public Function PrLv(Snt As Worksheet) As Integer 
Dim L As Integer 
For L = 1 To 500 

Empty(Sht.Cells(L, 1)) Then Exit For 


Priv = L 
End Function 


ResuStat gère la feuille RESUME : après avoir installé les données ligne LigR (qui devient la 
dernière ligne occupée), on appelle la procédure MoyStat qui calcule les moyennes des notes, 
temps et 96 réponse pour un critére ; les arguments en x sont les colonnes des arguments qui 
suivent. 


Sub ResuStat( 
ShRes.Cells(LigR, kRD).FormulaLocal - Date 
ShRes.Cells(LigR, kRThem).Value - Theme 
ShRes.Cells(LigR, kRNel).Value = NPrEl 
ShRes.Cells(LigR, kRNot).Value - SC 
ShRes.Cells(LigR, kRTq).Value = T 
ShRes.Cells(LigR, kRRep).Value - Nrep 
MoyStat kRNel, NPrEl, kRNot, EMNot, kRTq, EMTq, kRRep, EMRep, NE 
MoyStat kRThem, Theme, kRNot, TMNot, kRTq, TMTq, kRRep, TMRep, NT 
WkStat.Save 
End Sub 


Sub MoyStat(K As Integer, Crit As String, kl As Integer, _ 
vl As Single, k2 As Integer, v2 As Single, k3 As Integer, 
v3 As Single, N As Integer) 
Dim i As Integer 


N-0 
vl = 0 
v2 = 0 
v3 = 0 


For i = 2 To LigR 
If ShRes.Cells(i, K).Value = Crit Then 


N=N+1 
vl = vi + ShRes.Celis(i, kl).Value 
v2 = v2 + ShRes.Cells(i, k2).Value 
v3 = v3 + ShRes.Celis(i, k3).Value 

End If 

Next i 


v1 = CSng(Format(vl / N, "G.0")) 
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v2 = CSng(Format(v2 / N, "0.0")) 
v3 = CSng(Format (v3 / N, "0.0")) 
End Sub 


La structure est évidente : les variables v sont d'abord la somme, qu'on divise par le nombre 
d'éléments pour avoir la moyenne. Les trois dernières instructions arrondissent à une décimale, 
C'est bien suffisant. 

Elevstar gère le cas de l'élève. Là aussi, 1,igr devient la dernière ligne occupée où on installe 
les données. Ensuite, € on effectue un tri en majeur sur les éléves, en mineur sur les thémes, 
exactement comme au chapitre précédent page 165. Le tri exige que la feuille concernée soit la 
feuille active, d'où l'instruction @. Enfin, on appelle RapportsStat qui permet d'imprimer les 
résultats du demier questionnaire pour que l'éléve puisse avoir une trace de ses performances. 


Sub ElevStat () 
ShElev.Activate o 
ShElev.Cells(LigE, kED).FormulaLocal - Date 
SnElev.Cells(LigE, kEThem).Value - Theme 
SnElev.Cells(LigE, kENel).Value = NPrEl 
SnElev.Cells(LigE, kENot).Value = SC 
SnElev.Cells(LigE, kETq).Value - T 
SnElev.Cells(LigE, kERep).Value - Nrep 
ShElev.Cells(LigE, kEMNot).Value = EMNot 
SnElev.Cells(LigE, kEMTq).Value = EMTq 
SnElev.Cells(LigE, kEMRep) .Value = EMRep 
Range (Cells(2, 1), Cells(LigE, kEMRep)) .Select 
Selection.Sort Keyl:-Cells(2, kENel), Orderi:=xlAscending, 

Key2:=Cells(2, kEThem), Order2:=xlAscending, Header:=xlGuess @ 

WkStat.Save 
RapportStat 

End Sub 


RapportStat crée un classeur et y met les résultats du dernier questionnaire. L'instruction © 
ajuste la largeur de la colonne A au titre le plus large. Ensuite on demande si l'utilisateur veut 
imprimer et le classeur est sauvegardé et fermé : 


Sub RapportStat () 
Dim re, NFRap As String, e As Boolean 
Set WkRes = Workbooks.Add 
WkRes.Sheets (1) -Activate 
Range ("B1") .Value = "Rapport de questionnaire" 
Range ("B1") .Font.Bold = True 
Range ("A3") .Value = "Nom" 
Range ("B3") .Value = NPrEl 
Range ("A4") .Value = "Date" 
Range ("B4") .FormulaLocal = Date 
Range ("A5") .Value = "Thème" 
Range ("B5") .Value = Theme 
Range ("A6") .Value = "Note" 
Range ("B6") .Value = SC 
Range ("A7") .Value = "Temps par quest" 
Range ("B7") .Value = T 
Range ("A8") .Value = "$ réponses" 
Range ("B8") .Value = Nrep 
Range ("A9") .Value = "Moyenne notes" 
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Range ("B9") .Value = EMNot 
Range ("A10") .Value = "Moyenne temps" 
Range ("B10") .Value = EMTq 
Range ("A11") .Value = "Moyenne $ rep" 
Range ("B11") .Value = EMRep 
Range ("A3:A11") .Select 
Selection.Columns.AutoFit (€ 
NFRap = Chem + PS + "R" + Left(Theme, 3) _ 
+ Left(NPrEl, 5} + Format (Date, "dd-mm-yy") 


If Len(Dir(NFRap + ".xlsx")) > 0 Then @ 
re = MsgBox("Le fichier existe déjà. Acceptez-vous de " _ 
+ " l'écraser ? " , vbQuestion + vbYesNo, "Sauvegarde") 69 
If re - vbYes Then 
e = True 
Application.DisplayAlerts = False @ 
Else 
e = False 
End If 
Else 
WkRes.SaveAs Filename:=NFRap + ".xlsx" 
Application.DisplayAlerts = True o 
End If 


re = MsgBox("Voulez-vous imprimer le rapport ? ", vbQuestion 
vbYesNo, "Rapport questionnaire") 
If re = vbYes Then ActiveSheet.PrintOut 
MsgBox "Lorsque vous aurez fini d'examiner le rapport, cliquez" . 
+ "sur OK" © 
WkRes.Close 
End Sub 


La sauvegarde du classeur rapport peut poser problème si le même élève passe deux fois le même 
jour un quiz sur le même thème : il existe déjà un classeur de même nom, et, donc le système 
vous demande l'autorisation d'écraser le précédent. Il faut ici impérativement répondre OUI, sinon 
on part en erreur. Pour éviter ce risque, nous avons implanté la solution suivante. D'abord, on 
prend les devants en décelant l'existence du fichier de méme nom (repére 6). Ensuite, nous 
posons nous-mêmes la question à l'utilisateur (repère ©). Sil répond oui, on inhibe le message 
système à l'aide de la propriété DisplayAlerts (0):ily aura donc écrasement de l'ancien 
fichier ; s'il répond non, on ne sauvegarde pas le nouveau rapport. Notez qu'on pense bien à 
remettre la propriété à True. 

La fin demande si l'utilisateur veut imprimer le rapport et si cui, imprime. Ensuite, pour permettre 
à l'utilisateur d'examiner le rapport, on attend qu'il ait cliqué sur OK pour fermer le classeur (6). 
La procédure ThemStat gère la statistique par thèmes. Elle installe les données sur la ligne 
licne. La boucle du début calcule ce n? de ligne en combinant comme dans l'exemple page 164 
(© O) les structures 7nsérer un élément à sa place et Regroupement des données (partie 
Apprentissage : page 144). 


Sub ThemStat ( 
Dim ligne As Integer 
ShThem.Activate 
If LigT = 2 Then 
ligne = LigT 
Else 
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For Ligne = 2 TO Ligh = 1 
If Theme = ShThem.Cells(ligne, kTThem) .Value Then Exit For 
If Theme < ShThem.Cells(ligne, kTThem) .Value Then 
ShThem.Cells(ligne, kTThem) -EntireRow. Insert 


End If 
Next ligne 
End If 


SnThem.Cells (ligne, kTThem) .Value = Theme 
SnThem.Cells(ligne, kTN).Value = NT 
SnThem.Cells(ligne, kTMNot}).Value = TMNot 
SnThem.Cells(ligne, kTMla).Value = TMTq 
SnThem.Cells(ligne, kTMRep) .Value = TMRep 
SnThem.Rows (ligne) .Font.Bold = False 
WkStat.Save 

End Sub 


L'avant-derniére instruction enlève les caractères gras de la ligne : en effet si celle-ci est insérée 
juste en dessous de la ligne de titre, elle se retrouve en gras comme les titres. 

Nous sommes maintenant arrivés au terme de l'étape 3 : vous sauvegardez le classeur sous le 
nom QuizEleve3.x/sm. Pour vos essais, pour examiner le classeur QuizStat.x/sx vous devrez le 
rouvrir (rappel : le mot de passe est t soft). 


C'est d'ailleurs aussi le moment de protéger le projet VBA si vous confiez le classeur à des élèves. 
Vous ne pouvez pas protéger le classeur lui-même puisqu'il doit rester accessible aux élèves, mais 
il est bon de protéger le programme. C'est le cas du classeur QuizE/eve3.x/sm téléchargé. Bien que 
déjà vue, nous résumons la marche à suivre depuis l'Éditeur VBA : 

= Outils- Propriétés de VBAProject, onglet Protection. 

= M Verrouiller le projet pour l'affichage et fournir le mot de passe deux fois. 


En téléchargement, vous avez QuizStat.x/sx vide (avec seulement les titres de colonnes) et 
QuizStatex.x/sx avec quelques données exemples. 


QUELQUES PERFECTIONNEMENTS 


Voici quelques perfectionnements que l'on pourrait proposer. 


Gérer une liste des éléves 

Lorsque l'éléve fournit son nom et son prénom, nous avons dit que cette information doit toujours 

être tapée avec la même orthographe, sinon, le programme « croira » qu'il s'agit d'un nouvel élève 

et donc sera trompé pour le calcul de la moyenne. On pourrait gérer une liste des éléves 

(choisissez ou créez le classeur oü elle sera conservée) et l'éléve n'aura plus qu'à choisir son nom 

dans une liste déroulante. 

La liste peut étre remplie, soit par une fonctionnalité simulant une inscription des éléves, soit, plus 

simplement, si on tape un nom-prénom qui n'est pas dans la liste, il est ajouté a celle-ci : voir 

l'exemple en fin de paragraphe ComboBox, page 99 de la partie Apprentissage. 

Ceci cuvre des possibilités intéressantes : 

— On peut vérifier qu'un élève est bien inscrit avant de l'autoriser à répondre à un questionnaire. 

- Dans le cas où les thèmes sont modulés par niveaux, on peut n'autoriser un élève à ne prendre 
que des thémes du niveau qui lui correspond (il suffit que ce niveau soit une donnée de la base 
des inscrits). 

— On peut n'autoriser un élève qu'à passer un nombre limité de questionnaires dans une certaine 
période : par exemple, pour la semaine des examens, on n'autorise qu'un questionnaire et un 
rattrapage. En liaison avec le point suivant, cela implique de calculer des moyennes indexées 
sur le temps. 


Gérer des moyennes plus fines 
Dans les statistiques, on calcule la moyenne par éléve sur tous les questionnaires répondus. On 
pourrait gérer une moyenne par élève et par thème. Pour cela, chacune des moyennes devra être 
remplacée par un tableau indicé sur le thème. 


Message d'avertissement 
En cas d'abandon de questionnaire, avertir l'élève que son score sera faible et que c'est mauvais 
pour sa moyenne. Il suffit d'une simple instruction MsgBox, mais vous devez décider du module 
où elle sera implantée. 


Gérer la longueur des textes de réponse 
Gérer la longueur des réponses proposées, en imposant une limite. Rappelons que les éléments 
d'une ListBox ne peuvent être sur plusieurs lignes : si vous tapez Maj+Entréd ou Ctri-- [Entrée], il 
apparaîtra un signe €| dans la proposition. En revanche, vous pouvez le faire dans la réaction à la 
réponse : le texte affiché sera sur plusieurs lignes. C'est dans le module de gestion de la BDi 
UF EntréeQuestion de QuizAuteuri.x/sm que vous devez agir : nous vous suggérons 
d'im planter des routines pour les événements Exit des TextBox d'entrée des propositions de 
réponses. Dans ces routines, un message avertira l'utilisateur que la chaine de caractères est trop 
longue et donnera l'occasion de la modifier. 


Mémorisation de la liste des dates des quiz effectués 


En reprise de questionnaire, l'éléve doit se souvenir de la date du questionnaire à reprendre 
puisqu'elle intervient dans le nom de fichier à récupérer. Proposez dans une liste déroulante les 
différentes dates de questionnaires correspondant à l'éléve concerné. Ceci implique d'explorer les 
noms de fichiers du répertoire, donc utilisez Cir (partie Apprentissage page 114) ou l'objet 
SystemObject (page 121). 


Scripting.Fil 


QUELQUES PERFECTIONNEMENTS 


Gérer le risque d'écrasement de fichier 
Pour la sauvegarde du classeur rapport (étape 3), le système peut demander l'autorisation 
d'écraser un fichier précédent. Cela n'arrive que de façon rarissime : il faut que le même élève 
repasse un questionnaire de même thème le même jour. Si on n'autorise pas l'écrasement, le 
programme part en erreur. Nous avons évité ce risque en vérifiant au préalable l'existence d'un 
fichier de même nom et en demandant ce que l'utilisateur veut faire. Notre solution n'est pas 
satisfaisante : elle évite l'écrasement, mais, dans ce cas, le nouveau fichier n'est pas sauvegardé. 
Il serait préférable de changer le nom qu'on s'appréte à attribuer. 
Mais si le nouveau nom existe déjà ? Si comme nouveau nom vous proposez : 
NFRap = NFRap + CStr(Timer), il y a vraiment trés peu de risque que ce nom existe déjà. 
Mais vous pouvez tester ce fait et faire la concaténation une nouvelle fois. 
Une autre solution est de ne pas effectuer le test préalable, mais de fournir une routine de 
récupération d'erreur ; elle sera déclenchée si le fichier existe déjà et que l'utilisateur a refusé 
l'écrasement. La routine modifiera le nom par NFRap = NFRap + "b" et se terminera par 
Resume pour retenter la sauvegarde. Si le fichier modifié existe aussi, et que l'utilisateur refuse 
l'écrasement, la routine sera redéclenchée et un nouveau "b" concaténé au nom. Comme il est 
impossible que le même élève ait passé plus de n questionnaires de même thème le même jour, le 
processus se terminera au bout de n essais. 


Implanter une Aide 


Implanter un systéme d'aide : ce projet est assez complexe, ce qui justifie encore plus une aide 
aux utilisateurs. 


BA pour Excel versions 2 


Gestion 
d'une association 


Étape 1 — Fichier HTM 
Étape 2 - Nouveau membre 


Étape 3 — Modification/Suppression 


Pour aller plus loin 
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ÉTAPE 1 — FICHIER HTM 


1. LE PROBLÈME 


Nous allons gérer l'association des Amis des Animaux, c'est-à-dire inscrire les nouveaux membres, 
modifier leurs données, en supprimer, etc. Comme utilisation, nous allons créer la page WEB qui 
affichera le tableau des membres. D'autres utilisations sont envisageables, comme comptabiliser 
les cotisations, etc., nous les laissons de côté. 

Deux classeurs sont en jeu, conformément au principe de séparation programme-données 
introduit au chapitre 10 : la base de données, feuille Membres du classeur AmisAnimaux.xlsx et le 
classeur programme. Dans la première étape, nous produisons le fichier .htm à partir de la BD telle 
qu'elle est. Les étapes suivantes feront évoluer la base. 

Voici les premieres lignes de la BD : 


A B c D t F a H [ 
1 Association des Amis des Animaux 
Nom Prénom Adresse 1 Adresse 2 CP Ve Tel eMail Cots. à jour 
3 DUCK Donald Le Bois Sacré 1 rue du Débarquement 14009 Caen 02 20 10 05 02 
4 DUPONT Georges Ker Mag 20 Av Jottre 44500 La Baule 02 40 60 20 00 gdupontémat fr 
5 DURAND Charles 12 rue de la Lune 75003 Paris 06 03 89 78 81 cdurand@yahoo com 
5 FRICOTIN Bbi — 2 rue de Bellevue 75019 Paris. 
7 GUIGNOL Abert — 13 Traboule de la Prinlialo 69001 Lyon — 0478250000 
8 MOUSE Mickey Impasse du Fromage 38000 Grenoblo Mmenouse@noes fr 
" Membres +) ‘ 


La rubrique <Cotis. à jour> est prévue, mais elle ne sera pas gérée ici. 


Le classeur programme GestionAssoc0.x/sm contient une seule feuille nommée Menu, qui propose 
un bouton par fonctionnalité comme suggéré au chapitre 10 : 


* A B c | D E | F | G 
1 
2 Association des Amis des Animaux 
3 
4 Génére le fichier HTM 
5 des Membres 
6 | GenerHTM 
7 
8 | | Nouveau membre | Introduit un nouveau membre 
9 ou plusieurs 
10 NouwMembre 
11 
12 Modifie ou supprime un membre 
14 Modif Membre 
15|VO : 22/01/1 1 
16 
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Dans le nom de départ du classeur GestionAssoc0.x/sm, le 0 est le numéro d'étape ; il est rappelé 
en cellule A15 : n° de version et date. Après l'explication succincte à côté de chaque bouton, figure 
le nom de la procédure associée. Dans le classeur GestionAssoc0.x/sm , ces procédures sont toutes 
vides. 


ROUTINE D'INITIALISATION 

Nous commençons par l'introduction d'une routine d'initialisation [nit etde quelques variables: 
Initrait (Init a été exécuté), Repert (le répertoire des fichiers), Sep (le séparateur V ou :), 
NomFichMemb (le nom du fichier des membres), Rda tex (emplacement où on écrira la date 
d'exécution devant chaque bouton), WwkMemb (classeur BD), ShMemb (feuille BD), LéMemb (ligne 
de début des membres : 3), NbRub (nombre de rubriques traitées : 8, car on ne s'occupe pas de 
la cotisation) et le tableau libre NomsRub (les noms de rubriques). 

Les routines qui suivent doivent être saisies dans le module Module 1. Si vous avez oublié 
comment on accède à un module voir la partie Apprentissage pages 9 et 10 : ici, ayant ouvert le 
classeur GestionAssoc0.x/sm, appelez l'Éditeur VBA par Alt-F11] ; le classeur possède un module 
Module 1, donc vous n'avez pas à le créer (il faudrait utiliser Insertion — Module). 


La routine 1nit initialise ces variables, note la date du jour à côté du bouton appelé et ouvre le 
fichier des membres ; pour cela, on récupère la fonction Ouvert (partie Apprentissage : page 146) 
afin de ne pas avoir de message d'erreur si le fichier des membres est déjà ouvert. Voici la routine 
Init et le début des autres procédures (remarquez les lignes de commentaires séparatrices) : 


Public InitFait As Boolean, Rdatex As String, Sep As String 

Public Repert As String, NomFichMemb As String, WkMemb As Workbook 
Public ShMemb As Worksheet, LdMemb As Integer, NbRub As Integer 
Public NomsRub () 


Sub Init() 
InitFait = True 
Range (Rdatex) .FormulaLocal = Date 
ThisWorkbook. Save 
Repert = ThisWorkbook.Path 
Sep = Application. PathSeparator 
NomFichMemb = "AmisAnimaux.xlsx" 
If Not Ouvert (NomFichMemb) Then 
Workbooks.Open Filename:-Repert * Sep * NomFichMemb 
Set WkMemb = Workbooks (NomFichMemb) 
WkMemb.Activate 
Set ShMemb = WkMemb.Sheets ("Membres") 
LdMemb = 3 
NbRub = 8 
NomsRub = Array("Nom", "Prénom", “Adresse 1", “Adresse 2", "CP", 
"Ville", "Tel", "eMail") 
End Sub 


FER ER SR SS SS SS SS GenerHTM 
Sub GenerHTM() 

Rdatex = "Ag" 

If Not InitFait Then Init 


End Sub 
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Sub Modi fMembre () 
Rdatex = "A12" 
If Not InitFait Then Init 


End Sub 


a a a a a NouvMembre 
Sub NouvMembre | 
Rdatex = "A8" 
If Not InitFait Then Init 
End Sub 
!'2L--------------------------2------2----2------------------| ModifMembre 


N'oubliez pas de recopier la fonction ouve: L dans le module. Nous avons mis les variables en 
Public car il y aura plusieurs modules dans les étapes suivantes. 


Nous sommes préts maintenant à passer à la construction proprement dite de notre page Web. 


3. CONSTRUCTION DU FICHIER .HTM 
La structure est trés simple : début de la page Web, tableau des membres, fin de la page. Le 
tableau a lui-même un début et une fin entourant une double structure répétitive pour les lignes 
(les membres) et les colonnes (les rubriques). Voici le texte HTML représentant le tableau à 


afficher : 


«html» «head» 

«title» Les Amis des Animaux</title> 
«[head» «body» «center» 

«h2» Membres de l'Association </h2> 


«table border width-9596» 


<h2>Les Amis des Animaux« /h2» </center> 


début de la page 
| 
| 
| 


| 
début du tableau 


«tr» <td>nom de rubrique </td></tr> Iligne d'en-tête 

<tr> |chaque ligne 
<td>rubrique</td> chaque rubrique 
<td>rubrique</td> | 

</tr> [fin de la ligne 

</table> fin du tableau 

</body> </html> fin de la page 


Membres de l'Association 


Les Amis des Animaux 


[Nom  [Prómom [Adresse | (cp Vie (|fe eMail | 
[DUCK ^ |DonaM |Le Bois Sacré |[t rue du Débarquement (14000 [Caen — |02 20 1005 02 | 
[DUPONT — [Georges [Ker Mag 20 Av Joffre 44500 La Bade |[02 40 602000 Cour | 
[DURAND |Charles [12 rue de la Lune | 75003 [Paris — 0603897881 Coumi] | 
[FRICOTIN [Bai [2 rue de Bleue | 75019 [Pis | 

[GUIGNOL [Albert (13 Iraboue de la Praise | 69001 Lyon | 

[MOUSE [Mickey [Impasse du Fromage | [38000 [Grenoble 
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Dans le programme, chaque ligne d'écriture html se fait par un print # de la chaîne de caractères 
voulue ; on termine par vbCr et; pour avoir un parfait contrôle des lignes. 

Si la rubrique est vide, on met "&nbsp;" (l'espace en HTML) pour assurer la continuité de la 
bordure. 

Pour la rubrique eMail, la chaîne est : "<a href=""mailto:adresse"">Courriel</a>": 
remarquez les doubles guillemets pour incorporer un guillemet. 

On introduit les variables locales Lic (numéro de ligne), Col (numéro de rubrique/colonne) et 
Rub (le texte de la rubrique). On a ajouté en tête de module la directive Option Base 1.Le <b> 
</b> entourant l'écriture de chaque nom de rubrique, le met en gras. 


Le fichier Membres. htm est obtenu à partir des données page 196 grâce à la procédure 
GenerHTM suivante, que vous implantez en tapant le texte en complément des instructions déjà 
présentes dans la procédure (quasi vide au départ). 


Wn rn GenerHTM 
Sub GenerHTM() 
Dim Lig As Integer, Col As Integer, Rub As String 
Rdatex = "A4" 
If Not InitFait Then Init 
Open Repert + Sep + "Membres.htm" For Output As #1 
Print #1, "<html><head>" + vbCr; ' Début page 
Print #1, "<title>Les Amis des Animaux</title>" + vbCr; 
Print #1, "</head><body><center>" + vbCr; 
Print #1, "<hZ>Membres de l'Association</n2>" + vbCr; 
Print #1, "<h2>Les Amis des Animaux</h2></center>" + vbCr; 
Print #1, "<table border width=953>" + vbCr; ' Début tableau 
Print $1, "<tr>" + vbor; 


For Col = 1 To NbRub ' Noms de rubriques 
Print #1, "<td><b>" + NomsRub(Col) + "</b></td>" + vbCr; 

Next Col 

Pring $1, “</tr>! F One 

For Lig = LdMemb To 1000 ' Les membres 


If IsEmpty(ShMemb.Cells(Lig, 1)) Then Exit For 
Print 41, “Sere! EVE: 


For Col = 1 To NbRub - 1 'Les rubriques 
Rub = CStr(ShMemb.Cells(Lig, Col).Value) 
If Rub = "" Then Rub = "énbsp;" 
Print #1, "<td>" + Rub + "</td>" + vbCr; 
Next Col 
Rub = CStr(ShMemb.Cells (Lig, NbRub) .Value) 
If Rub = "" Then Rub = "&nbsp;" Else — 
Rub = "<a href=""mailto:" + Rub + """>Courriel</a>" 
Print #1, "<td>" + Rub + "</td>" + vbCr; 
Print #1, "</tr>" + vbCr; 
Next Lig 


Print #1, "</table>" + vbCr; 
Print £1, "</body></ntml>" + vbCr; 
Close 1 

End Sub 
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Le nom du fichier Web produit est fixé à Membres.htm dans l'instruction Open. Une telle chose est 
en principe à éviter : on doit paramétrer au maximum. Dans notre exemple, on pourrait introduire 
une variable NomFichWeb obtenue par une InputBox : 


NomFichWeb=Input3ox("Nom du fichier Web à créer ? ",,"Membres.htm") 

Nous vous laissons l'implantation complète à titre d'exercice complémentaire. 

Après l'ouverture du fichier, une batterie de Print * écrit les lignes de début du fichier .htm tel 
qu’esquissé page 200. On implante la balise de début de tableau et la boucle For Col.... remplit 
la 1'* ligne avec les noms de rubrique. 

On reconnaît dans la boucle For Lig = ..letest If IsEmpty .. du parcours de la partie utile 
d'une feuille de calculs. Pour une ligne renfermant un membre de l'association, il y aura une ligne 
du tableau, donc on implante la balise <tr> de début de ligne. On a ensuite la boucle sur les 
rubriques. On termine par la balise </tr> de fin de ligne. 

Les rubriques sont traitées en deux temps : les NbRub-1 premières rubriques sont traitées dans la 
boucle For Col.. Le contenu trouvé sur la feuille est converti en chaine. S'il est vide, on inscrira 
&nbsp; qui figure un espace : si on ne le faisait pas, on aurait une case vide dans le tableau et la 
bordure aurait une discontinuité inesthétique (ceci est un problème HTML qui sort du sujet de ce 
livre). Bien sûr, chaque rubrique est annoncée par la balise «tà»..«/tc». 

La derniére rubrique est traitée à part car il n'y a pas qu'à recopier l'adresse eMail, il faut 
construire le lien en insérant le contenu lu sur la feuille des membres entre les balises «a» et 
</a>. 

Le programme se termine par les balises de fin de tableau et de fin d'HTML et, surtout, par la 
fermeture du fichier à ne pas oublier sous peine d'écriture incomplète. 

Une fois la frappe finie, faites Débogage — Compiler VBAProject. Un certain nombre d'erreurs 
peuvent vous étre signalées : comparez avec le listing ci-dessus et corrigez. Sauvegardez le 
classeur sous le nom GestionAssocl.x/sm. 


Attention, vous ne devez pas écraser le classeur de méme nom téléchargé. Vous devez avoir 
conservé une copie des classeurs originaux téléchargés dans un autre dossier. 


Il vous reste à tester l'exécution, ce qui s'obtient en cliquant sur le bouton Génère HTM de la 
feuille Menu. Si vous n'avez pas fait d'erreur, vous devriez obtenir un fichier Membres.him et la 
visualisation par votre navigateur doit avoir l'aspect de la figure de la page 198. 

Le programme ne ferme pas le classeur base de données AmisAnimaux.x/sx. Il est facile de le 
fermer à la main, mais vous pouvez ajouter l'instruction WwkMemb.Close. 
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ÉTAPE 2 — NOUVEAU MEMBRE 


1. CREER UNE BDI 


Nous passons à la gestion de la base de données, et, d'abord, à l'entrée d'un nouveau membre. Il 
nous faut donc une BDi pour entrer ses données. 


m Faites Insertion — UserForm. 

= Augmentez un peu la taille et renommez-la UF Membre. Mettez la Caption = Nouveau 
membre. 2 

Créez un Label et une TextBox à cóté ; sélectionnez les deux et faites Cop/er. 

Faites Coller 7 fois : vous avez 8 couples (on gére 8 rubriques). 

Sélectionnez les 8 labels et donnez la valeur 3 (droite) à TextAlign. 


Donnez aux labels les Captions respectives Nom, Prénom ... (les noms de rubriques). 


= Créez 5 boutons, les 4 premiers en bas, le 5€ à côté du prénom. Donnez les Name (et 
Caption) respectifs 8 OK (CK), B OKDern (0K-Dernier), B Annul (Annuler), B Quit 
(Quitter)etB-Ver (Vérifier). 

m Créez un Label en haut avec Visible = False etla Caption - UF Membre V2 date F 
date : ce label apparaîtra au listing alors que le titre de la BDi n'apparait pas. La BDi doit 
avoir l'aspect : 

TN T ne 
Nouveau membre 
UF_Membre V2 22/01/16 F 22/01/16 


Nom 


Le bouton Vérifier devra être cliqué après avoir entré nom et prénom : le système préviendra si 
nom et prénom identiques se trouvent déjà dans la base. Les boutons de validation ne seront 
activés qu'après cette vérification. La dualité OK, Annuler /OK Dernier, Quitter permet d'entrer une 
série de membres : pour le dernier, on valide par OK-Dernier. 

Cette gestion utilise deux booléens Satisf et Dernier : Satist est vrai si on a validé les 
données d'un membre, Dernier si c'est le demier de la série. On a en plus une variable Mode qui 
distinguera le cas Nouveau membre du cas Modification, car, par économie, nous utiliserons la 
méme BDi, à peine modifiée. 
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Ces variables sont publiques, ainsi que Ligne (numéro de ligne où s‘insérera le nouveau 
membre), et le tableau DonMemb des données du membre. co1, le numéro de rubrique est local 
aux procédures qui l'emploient. 

En résumé, il s'ajoute en téte du module 1 les déclarations : 


Public Mode As Integer, Satisf As Boolean, Dernier As Boolean 
Public Ligne As Integer, DonMemb(8) As String 


y 


PROCÉDURES DE L'USERFORM 

Rappelons (partie Apprentissage : page 95) que, pour ouvrir la fenêtre de code du module de 
l'UserForm, vous tapez |F7| (en supposant active la fenêtre objet de l'UserForm). Sinon, vous 
pouvez toujours utiliser le menu Fenêtre. Ce module est essentiellement formé des procédures 
événements des contrôles de la BDi, mais il peut s'ajouter d'autres procédures si, comme ce sera 
le cas ici, une même opération est à effectuer à partir de plusieurs contrôles. 

Pour implanter une procédure événement, vous pouvez taper 

Sub <nomcontréle>_<événement>. Mais vous pouvez aussi sélectionner le contrôle dans la 
liste déroulante à gauche de la fenêtre de code, puis l'événement dans la liste déroulante à droite : 
Sub et End Sub sont alors implantées automatiquement sans risque de faute d'orthographe (et 
avec Private en prime). Il s'implante souvent inopinément des routines Click, laissées vides : 
pensez à les supprimer. 

Nous avons d'abord la routine UserForm Activate où nous n'implantons que la branche 
Mode=0 : on ne fait que fixer le titre de la BDi et la légende du bouton « Vérifier ». 


Lorsqu'on a entré un nom et/ou un prénom, on désactive les boutons « OK », car on doit effectuer 
la vérification, d’où les deux routines rexcBox1 Exit et TextBox? 


Exit. 

Les quatre routines des boutons de validation E Annu: Click,B OK Click, 

B OXDern ClicketB Quit Click sont très semblables : avant de fermer la BDi elles fixent 
en conséquence les booléens sur lesquels est basée la gestion : Dernier est mis à vrai pour les 
boutons qui terminent une série 3 OKDern et B Quitter. Satisf est mis à faux par les 
boutons d'annulation et à vrai par les boutons OK. 

Les boutons |OK| appellent la procédure Ca ptureDon qui transfère les données des contrôles dans 
le tableau DonMemb. En effet, si on clique sur OK, c'est que les données entrées dans les contrôles 
sont correctes. Le tableau Don Memb sert à les mémoriser pour récupération dans Module 1 qui 
utilisera la procédure réciproque EcritDon. Cette routine ne correspondant pas à un événement, 
elle doit être tapée entièrement. 

La routine 3 Ver click est la plus délicate. Pour le moment, nous n'implantons que la branche 
Mode=0. On commence par exiger que le nom et le prénom aient été fournis, sinon, on ne 


pourrait rien vérifier. Ensuite, on parcourt toute la partie utile du classeur des membres et, si le 
nom et prénom de la BDi sont déjà présents, on positionne le booléen ''r à vrai. 


Si Tr est faux, on active les boutons OK. Si Tx est vrai, on demande à l'utilisateur s'il veut tout de 
même entrer ce membre (deux membres peuvent avoir mêmes nom et prénom ; espérons qu'ils 
n'ont pas la même adresse !) et alors on active aussi les boutons (OK. Si la réponse est non, 
l'utilisateur doit changer le nom et/ou le prénom ou bien annuler. 


Sub CaptureDon ( 
Dim Col As Integer 
For Col = 1 To NbRub 
DonMemb (Col) = Controls 
Next Col 
End Sub 


("TextBox" + CStr(Col)).Text 
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Private Sub B Annul Click() 


Dernier - False 
Satisf - False 
Unload Me 

End Sub 


Private Sub B OK Click( 
CaptureDon 


Dernier - False 
Satisf = True 
Unload Me 

End Sub 


Private Sub B OKDern Click() 
CaptureDon 
Dernier = True 
Satisf = True 
Unload Me 
End Sub 


Private Sub B Quit Click( 


Dernier - True 
Satisf - False 
Unload Me 

End Sub 


Private Sub B Ver Click() 
Dim Tr As Boolean, Rep 
If Mode = 0 Then 


If (TextBoxl.Text - "") Or (TextBox2.Text - "") Then 
MsgBox "Il faut au moins le nom et le prénom" 
Exit Sub 

End If 

Tr = False 


For Ligne - LdMemb To 1000 
If IsEmpty(ShMemb.Cells(Ligne, 1)) Then Exit For 
If (ShMemb.Cells(Ligne, 1).Value = TextBoxl.Text) And = 
(ShMemb.Cells(Ligne, 2).Value = TextBox2.Text) Then 
Tr = True: Exit For i 
Next Ligne 
rf Tr Then 
Rep = MsgBox ("Ce nom et prénom sont déjà présents" + vbCr + — 
“voulez-vous tout de méme entrer ce membre", vbYesNo + 
vbExclamation) P 
If Rep = vbYes Then B OK.Enabled- True: B OKDern.Enabled- True 
Else E B 
B OK.Enabled - True: B OKDern.Enabled - True 
End If 
Else 
' laissé vide pour le moment 
End If 
End Sub 
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Private Sub TextBoxl Exit (ByVal Cancel As MSForms.ReturnBoolean 
B CK.Enabled - 
B CKDern.Enabled - False 
End Sub 


Private Sub TextBox2 Exit(ByVal Cancel As MSForms.ReturnBoolean 
B CK.Enabled - 
B CKDern.Enabled - False 
End Sub 


Private Sub Userkorm Activate() 
If Mode = 0 Then 


Me.Caption - "Nouveau membre" 
B Ver.Caption - "Vérifier" 
Else 
' laissé vide pour le moment 
End If 
End Sub 


3. PROCÉDURES DE MODULE 1 


lO EcritDon 
Sub EcritDon() 
Dim Col As Integer 
For Col = 1 To NbRub 
ShMemb.Cells(Ligne, Col).Value - DonMemb (Col) 
Next Col 
End Sub 
Re ne Se OE CI DII ne S NouvMembre 
Sub NouvMembre | 
Rdatex = "A8" 
If Not InitFait Then Init 
Dernier = False 
While Not Dernier 
Satisf = False 
Mode=0 


UF Membre.Show 
If Satisf Then 
For Ligne - LdMemb To 1000 
If IsEmpty (ShMemb.Cells (Ligne, 1)) Then Exit For 
If DonMemb(1)+ DonMemb(2) < ShMemb.Cells(Ligne, 1).Value + 
ShMemb.Cells(Ligne, 2).Value Tnen 
ShMemb.Activate 
ShMemb.Cells(Ligne, l).EntireRow.Insert 
Exit For 
End If 
Next Ligne 
EcritDon 
End If 
Wend 
WkMenb.Save 
End Sub 


lles/Tsoft — VBA pour Excel versions 2019 et Office 365 


ÉTAPE 2 — NOUVEAU MEMBRE 


La structure de NouvMemb est en fait simple : 
While Not Dernier ` Tant qu'on n'a pas entré le dernier de la série 
UF Membre.Show X "afficher la BDi 
Tf Satisf Then ` si on a obtenu une donnée correcte 
| ForLigne ` chercher où l'insérer 
D Le 
| Next 
| EcritDon ‘insérer la donnée 
End If 
Wend 
La boucle For Ligne suit exactement le schéma de routine que vous trouverez dans la partie 


Apprentissage, page 144. En effet, on conserve toujours l'ordre alphabétique des membres pour 
que la génération du fichier .htm qui doit respecter cet ordre soit facile. 

Remarquez aussi la sauvegarde du classeur liste des membres. II n'y en avait pas besoin pour 
étape 1, mais il la faut pour cette étape et la suivante. 

La procédure EcritDon transfère dans la liste des membres à la ligne voulue par l'ordre 
alphabétique les données saisies par la BDi et transmises par le tableau DonMemb. 


Sauvegardez le classeur sous le nom GestionAssoc2.x/sm avec toujours la même précaution d'avoir 
conservé une copie intacte des classeurs originaux téléchargés. Vous devez aussi avoir une copie à 
abri du classeur Membres.xísx car les essais que vous devez effectuer maintenant vont l'altérer. 
Pour tester le programme à l'étape 2, vous cliquez sur le bouton « Nouveau membre », vous 
entrez une série de nouveaux membres (clic sur OK aprés chaque et sur aprés le 
dernier) : vous devez vérifier que les données des membres sont bien entrées et sont bien à leur 
place d’après l'ordre alphabétique. 

Dans l'étape 3, nous allons mettre en ceuvre le principe d'une BDi dynamique, qui change selon les 
circonstances (voir page 120). C'est la méme BDi UF. Membre qui va servir selon que la variable 
Mode sera 0 (ajouter un nouveau membre) ou 1 (modifier ou supprimer un membre existant). En 
fonction de Mode, le programme fera apparaitre ou disparaitre des contróles ou changera 
certaines de leurs propriétés. 
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1. CONSTRUIRE LA BDI 


Pour la modification, le probléme est de trouver l'enregistrement à modifier. On fait la recherche 
sur le nom : lorsqu'on a trouvé une concordance, on affiche l'ensemble des données de 
l'enregistrement et l'utilisateur doit cliquer sur (Correct si c'est l'enregistrement cherché. Sinon, il 
doit cliquer sur Chercher/Suivant car il peut y avoir plusieurs membres de même nom. Le libellé 
"Chercher/Suivant" remplace le libellé "Vérifier" ; les deux boutons supplémentaires sont visibles et 
actifs seulement si Mode=1. Dans ce cas, on change aussi le titre de la BDi dans la routine 
Activate. Voici le nouvel aspect de la BDi : 


2. PROCÉDURES DE L'USERFORM 
Dans la fenêtre de code associée à la BDi, vous avez un certain nombre de routines à modifier, et 
il s'ajoute les routines de clic des deux boutons supplémentaires, donc, rappelons-le, choix du 
bouton dans la liste déroulante de gauche et choix de l'événement dic dans la liste de droite. 
Comme il s'agit d'événements clic, une autre manière d'obtenir l'ouverture de la routine serait de 
double-cliquer sur le bouton dans la BDi en cours de création/modification. 
Le module de l'UserForm a une nouvelle variable, Ldebut, numéro de ligne où reprend la 
recherche si on a plusieurs enregistrements de même nom ; sa déclaration doit être tapée telle 
quelle. 
Les routines des quatre boutons de validation et captureLon sont inchangées ainsi que les deux 
routines d'Exit des deux TextBox. 
La procédure UserForm Activate a maintenant aussi la branche pour Mcde=1 (sous le Else). 
Même la branche Mode =0 est à modifier puisqu'il s'ajoute la gestion des activations et visibilité 
des boutons supplémentaires B Correct etB Suppr. Dans la branche Mode=1 on initialise 
Ldebut à LdMemb, n? de 1'? ligne utile dans la liste des membres. 
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La routine B Correct Click active le bouton Supprimer et les deux ok puisque le membre sur 
lequel on veut agir est maintenant trouvé. 

B Supor Click demande une confirmation et, si oui, effectue la suppression. La variable Ligne 
contient bien le numéro de ligne concernée. Remarquez que, après la suppression de 
enregistrement, on appelle 8 Annul Click : en effet, au retour dans le programme appelant, 
out doit se passer comme si on avait annulé car la modification du classeur Membres.xlsx a été 
effectuée. 

C'est la routine B ver Click qui subit les plus importantes modifications. La branche Mode=0 
est inchangée, ce qui prouve la solidité de notre programmation. La branche Else commence par 
protester si le nom n'est pas fourni et on quitte la routine sans quitter la BDi pour permettre à 
"utilisateur de le fournir. 

Ensuite, démarre la boucle Fox Ligne.. pour chercher un membre de ce nom. On interrompt la 
boucle soit lorsque le nom est trouvé, soit si le parcours de la partie utile de la feuille est terminé. 
Si le nom est trouvé, on appelle la routine LitDon pour afficher les données du membre : 
utilisateur pourra donc décider de cliquer sur Correct ou sur |Chercher/Suivant . C'est en vue de 
cette possibilité de chercher plus loin que l'instruction Ldebut=Ligne+1 fait que la prochaine 
recherche démarrera au membre suivant celui où on vient de s'arrêter. Si le nom n'est pas trouvé, 
un message en avertit l'utilisateur. 


La routine Li tDon écrit dans les contrôles de la BDi les données du membre dont le nom 
correspond au nom cherché. Si on clique sur Correct, ces valeurs pourront être modifiées et les 
valeurs modifiées validées puisque les boutons de validation auront été activés par 

B_Correct Click. 


Dim Ldebut As Integer 
Sub CaptureDon () 
Dim Col As Integer 


For Col = 1 To NbRub 
DonMemb (Col) = Controls("TextBox" + CStr(Col)) .Text 
Next Col 
End Sub 


Sub LitDon() 
Dim Col As Integer 
For Col = 2 To NbRub 
Controls ("TextBox" + CStr(Col)).Text = ShMemb.Cells(Ligne, Col) 
Next Col 
End Sub 


Private Sub B Annul Click() 


Dernier = False 
Satisf = False 
Unload Me 

End Sub 


Private Sub B Correct Click() 
B Suppr.Enabled - Tr 
B OK.Enabled - True 
B OKDern.Enabled - True 
End Sub 


rue 
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Private Sub B OK Click( 
CaptureDon QS 
Dernier - False 
Satisf - True 
Unload Me 

End Sub 


Private Sub B OKDern Click( 
CaptureDon 
Dernier - True 
Satisf = True 
Unload Me 
End Sub 


Private Sub B Quit Click() 
Dernier - True 
Satisf - False 
Unload Me 

End Sub 


Private Sub B Suppr Click() 
Dim Rep 


tes-vous sür de vouloir supprimer ce membre ? ", 


vbYesNo + vbQuestion 
If Rep = vbYes Then 
ShMemb.Activate 
ShMemb.Cells(Ligne, 1).EntireRow.Delete 
B Annul Click 
End If 
End Sub 


Private Sub B Ver Click( 
Dim Tr As Bcolean, Rep 
If Mode = 0 Then 


If (TextBoxl.Text - "") And (TextBox2.Text - "") Then 
MsgBox "Il faut au moins le nom et le prénom" 
Exit Sub 

End If 

Tr - False 


For Ligne - LdMemb To 1000 
If IsEmpty(ShMemb.Cells(Ligne, 1)) Then Exit For 
If (ShMemb.Cells(Ligne, 1).Value - TextBoxl.Text) And a 
(ShMemb.Cells(Ligne, 2).Value = TextBox2.Text) Then . 


Tr = True: Exit For 
Next Ligne 
If Tr Then 


Rep = MsgBox("Ce nom et prénom sont déjà présents" + vbCr + 
"Voulez-vous tout de méme entrer ce membre", vbYesNo + 4 
vbExclamation) 

If Rep = vbYes Then B OK.Enabled= True: B OKDern.Enabled- True 

Else B a 
B OK.Enabled = True: B OKDern.Enabled = True 
End If 5 
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Else 
If (TextBoxl.Text = "") Then 
MsgBox "Il faut fournir le nom" 
Exit Sub 
End If 


Tr = False 
For Ligne = Ldebut To 1000 


If IsEmpty (ShMemb.Cells(Ligne, 1)) Then Exit For 
If (ShMemb.Cells(Ligne, 1).Value = TextBoxl.Text) Then P 
Tr = True: Exit For 
Next Ligne 
If Tr Then 
LitDon 
Ldebut - Ligne * 1 
Else 
MsgBox "Nom non trouvé" 
End If 
End If 
End Sub 


Private Sub TextBox1 Exit (ByVal Cancel As MSForms.ReturnBoolean) 
B OK.Enabled - False 
B OKDern.Enabled - False 

End Sub 


Private Sub TextBox2 Exit(ByVal Cancel As MSForms.ReturnBoolean) 


B OK.Enabled - False 
B OKDern.Enabled - False 
End Sub 


Private Sub UserForm Activate() 
If Mode = 0 Then 
Me.Caption = "Nouveau membre" 
B Ver.Caption = "Vérifier" 
B Correct.Enabled - False 
B Correct.Visible - False 
B Suppr.Enabled = False 
B Suppr.Visible - False 


Else 
Me.Caption - "Mcdification/Suppressicn membre" 
B Ver.Caption - "Chercher/Suivant" 


B Correct.Enabled - True 
B Correct.Visible - True 
B Suppr.Enabled - False 


B Suppr.Visible - True 
Ldebut - LdMemb 
End If 
End Sub 
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3. PROCÉDURE MODIFMEMBRE 
SE CC ModifMembre 
Sub Modi fMenbre () 
Rdatex = "A12" 
If Not InitFait Then Init 
Dernier = False 
While Not Dernier 
Satisf = False 
Mode = 1 
UF_Membre.Show 
If Satisf Then 
EcritDon 
End If 
Wend 
WkMemb.Save 
End Sub 


La structure est encore plus simple que NouvMemb car on n'a pas à chercher dans quelle ligne 
insérer les données, puisque le numéro de ligne concemé est trouvé lors de la recherche du nom 
et conservé dans la variable Ligne. La différence importante est la valeur donnée à la variable 
Mode : une erreur cu l'oubli de cette instruction empécherait le fonctionnement correct. 


Vous devez sauvegarder le classeur auquel nous sommes parvenus sous le nom 
GestionAssoc3.x/sm avec les mêmes précautions de conservation d'une copie intacte des originaux 
des classeurs téléchargés. Ensuite, vous cliquez sur le bouton et modifiez quelques données, puis 
vous examinez /Vembres.xlsx pour vérifier que les modifications sont bien entrées et sont à la 
bonne place. 
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Voici quelques directions de possibles améliorations : 


Offrir un système d'Aide 
Offrir un système d'aide. Il faut bien sûr créer les fichiers .htm voulus ; ce n'est pas le sujet de ce 
livre. Ensuite, il faut fournir au moins un bouton dans la feuille Menu du classeur programme et un 
bouton dans la BDi UF Membre. Nous avons vu (partie Apprentissage : page 152) comment écrire 
les routines de clic de ces boutons. 

Gérer des rubriques supplémentaires 
C'est simple en s'inspirant des routines écrites pour les rubriques en place. 

Ajouter des fonctionnalités 
Par exemple faire un systéme de relance des adhérents en retard de cotisation ; il faudrait ajouter 
la rubrique date de derniére cotisation... C'est utile pour toutes les associations. 

Dictionnaire de données 


(Ceci plutót à titre d'exercices de programmation) Gérer les placements des entrées de BDi par les 
Tags des contróles et introduire dans les BD une feuille dictionnaire de données pour avoir une 
gestion capable de s'adapter à un déplacement des rubriques dans leur classeur. 


Améliorer l'ergonomie 


Si on clique sur une fois de trop, le nom ne sera pas trouvé et il faudra 
reprendre la recherche au début. Il serait plus ergonomique d'implanter un bouton Précédent 
permettant des allers et retours. 


Maintenant, quelques lecons à retenir de cette étude de cas (et de toutes) : 

— Complémentarité de tous les éléments d'un projet : les instructions sont écrites en fonction de 
la structure des données dans les classeurs BD ; les procédures événements liés aux contróles 
de BDi et les appels des BDi sont écrits en fonction les uns des autres et les transmissions de 
données doivent &tre prévues... Autre comportement de la BDi, autre facon de l'utiliser. 

— Confirmation de l'intérét du principe de séparation programme-données. On pourrait protéger 
les classeurs BD par mot de passe et faire qu'on ne puisse y accéder que par le programme 
(dont le texte devra étre interdit de consultation, sinon, on pourrait lire les mots de passe : cela 
s'obtient par Outils — Propriétés de projet, onglet Général et A Verrouiller le projet pour 
l'affichage (partie Apprentissage : page 20). 

— Par ailleurs, un avantage du fait que nos BD soient des classeurs Excel est que l'on dispose d'un 
moyen indépendant de notre programme de les examiner et donc de vérifier ce que fait notre 
programme : ce sont les simples commandes d'Excel. Bien sûr, cet accès joue pendant la phase 
de mise au point, quand les classeurs ne sont pas encore protégés. 
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Facturation 


Étape 1 - Facturation 
Étape 2 — Gestion de la base clients 


Étape 3 — Gestion de la base produits 


Pour aller plus loin 
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Nous partons du classeur programme Facturation0.x/sm, dont la feuille Menu contient les mêmes 
boutons que ceux décrit dans la partie Apprentissage : page 149, associés pour le moment aux 
procédures vides respectivement NouvCli, ModCli, CréeFact, ReprFact, NouvProd et 
ModProd. La seule différence est que nous mettons VO dans la cellule A28 et la date. 


1. LE MODÈLE DE FACTURE 


Nous devons maintenant créer le classeur ModeleFacture.xisx. 1l a une seule feuille Facture qui a 
l'aspect : 


22 *v fe * 
4 A 8 c D € F G H Li J -| 
1 | 
H = 
3 X Magasin Sport et Santé 
4 15 Ar de la République 44500 La Baule. 
5 
6 FACTURE du 21/01/2016 
7 
s 
9 
» 
n = L 
12 Référence _ Désignation PU TE ‘Montana 
n 
u m 
LE 
16 Total MT 0,00€ 
VW TWA 20,00N 0,00€ 
" nc 6,00€ 
" 
Fecture 0 D F 
m ta Hao- D + don 


En cellule B8, viendra le nom du client, son adresse en B9, CP Ville en B10. Le numéro de facture 
viendra en E6. S'il n'y a qu'une ligne détail, ce sera la ligne 14, s'il y en a plus, on fera des 
insertions. 

Les éléments qui n'apparaissent pas sur la figure sont le formatage en monétaire 2 décimales des 
colonnes D et F et les formules : 

- en F6 : -AUJOURDHUZ, format personnalisé : "du "33 /mm/aaaa, 

- en F16 : -SOMME (F13:F15) (lorsqu'on insèrera des lignes détail en 14, on calculera toujours la 
somme puisque l'expression sera recopiée ; les lignes extrêmes 13 et la remplaçante de 15 
resteront toujours vides), 

- en F14 : -D14*E14, 

-en F17: -E17*r16 eten F18 : =F16+F17. Le format de E6 est personnalisé "n? "a. 

En haut à gauche, comme logo de l'entreprise, nous avons inséré l'image b/ke.jpg par C^ Insertion 
— Image — A partir du fichier... et nous avons ajusté sa taille. 


2. BDIUF CurENTS 
Pour cette étape, nous ne gérons pas du tout le fichier dents et ne l'appelons méme pas : les 
données du client seront entrées directement gráce à une BDi qui sera utilisée modifiée dans 
l'étape 2. 
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Elle est régie par les mêmes variables Mode, Sat: sf et Dernier que nous avons vues dans le 
cas précédent, mais Mode peut prendre en plus la valeur 2 qui est justement le cas de cette 1"€ 
étape. Il y a les six mêmes boutons, mais, dans cette étape, seuls sont visibles et activés &. ox et 
B_Annul. De méme le numéro client n'est pas géré. 


VF Olent V 22/01/16 F 22/01/36 


MMma Mk. zl N* Cien 


Pour créer cette BDi, nous rappelons (Apprentissage : page 91) qu'après Insertion-UserForm, 
vous réglez la taille et implantez les contrôles soit six couples Labe//TextBox que vous pouvez 
créer par copie du premier, puis vous les déplacez et ajustez certaines tailles. Il y a le label 
supplémentaire UF_Client.... qui gère les dates de version eta la propriété Visible = False, 
Le TextBox du numéro client a Enabled = False pour cette étape. Les six boutons se créent 
sans difficulté. On a prévu un ComboBox pour spécifier si le client est M. Mme ou Mle. 

Avec les déclarations publiques de Module 1 suivantes : 


Option Base 
Public Mode As Integer, Satisf As Boolean, Dernier As Boolean 
Public Repert As String, Sep As String, Rdatex As String 
Public InitFait As Boolean, WkNum As Workbook, ShNum As Worksheet 
Public WkFact As Workbook, WkCli As Workbook, WkPro As Workbook 
Public ShFact As Worksheet, ShCli As Worksheet, ShPro As Worksheet 
Public DonC1i(8) As String, NbDCli As Integer 
Public NumSeqFact As Integer, NumFact As String, 

NomFichFact As String 


Voici le premier état du module de l'UserForm : 


Sub RecDonCli() 
Dim i As Integer 


DonCli(1) = ComboBoxl.Text 
For i = 1 To NbDCli-1 
DonCli(1 + i) = Controls("TextBox" + CStr(i)).Text 
Next i 
End Sub 


Private Sub B Annul Click() 


Dernier = False 
Satisf = False 
Unload Me 

End Sub 
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Private Sub B Correct Click( 
End Sub 


Private Sub B OK Click( 
RecDonCli 
Dernier - False 
Satisf - True 
Unload Me 

End Sub 


Private Sub B OKDern Click( 
RecDonCli 
Dernier - True 
Satisf - True 
Unload Me 
End Sub 


Private Sub B Quit Click( 


Dernier - True 
Satisf - False 
Unload Me 

End Sub 


Private Sub B Ver Click( 
End Sub 


Private Sub UserForm Activate( 
ComboBoxl.Clear 
ComboBoxl.AddItem "M." 
ComboBoxl.AddItem "Mme" 
ComboBoxl.AddItem "Mle" 
Select Case Mode 

Case 0 


Case 2 

B OK.Enabled - True 

B OK.Visible - True 

B OKDern.Enabled - False 
B OKDern.Visible = False 
B Annul.Enabled - True 

B Annul.Visible - True 

B Quit.Enabled - True 


B Quit.Visible True 
B Ver.Enabled - False 
B Ver.Visible = False 
B Correct.Enabled 
B Correct.Visible 
End Select 
End Sub 


False 
False 
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Les routines d'événement sont tapées dans le module associé à la BDi. On ouvre cette fenêtre par 
F7] à partir de la BDi. Pour associer une procédure événement à un contrôle, on choisit le contrôle 
dans la liste déroulante de gauche et l'événement dans la liste de droite. 


Routine UserFom Activate : On commence par remplir la liste du ComboBox. Ensuite on 
distingue les trois valeurs possibles de Mode par un Select Case ; on remplit seulement le cas 2 
pour cette étape : on rend inactifs et invisibles les boutons qui ne servent pas. 

On laisse vides les routines 3 Correct Click etB_Ver Click pour cette étape. On aurait pu 
faire de même pour B_OKDern Click et B_Quit_Click, mais comme ces routines sont des 
copies à peine modifiées de B_OK Click et3 Annul Click, nous les avons implantées. 

B OK ClicketE Annul Click, etc. sont trés semblables : avant de fermer la BDi elles fixent 
en conséquence les booléens sur lesquels est basée la gestion : Dernier est mis à vrai pour les 
boutons qui terminent une série B_OKDern et B Quitter (en fait, il ne sert pas à cette étape). 
sat ist est mis à faux par les boutons d'annulation et à vrai par les boutons OK. 5 ok Click 
appelle la procédure RecDonc1i qui transfère les contenus des contrôles d'entrée dans le tableau 
DonCli d'où elles seront récupérées dans Module 1. 


3. LA NUMÉROTATION 
La législation exige que les factures soient numérotées en séquence, et, en principe, 
automatiquement. Cela n'empêche pas les fausses factures, mais, en tous cas, il n'y a aucun 
moyen de le réaliser sans macros. Donc ce livre est justifié. 
Pour le réaliser, nous consacrons un classeur ad hoc, Aurm.x/sx, qui pourra être protégé par mot 
de passe. Nous avons en face de chaque année, le dernier numéro attribué. Le numéro est en fait 
année-numéro de séquence et le nom de fichier est constitué de F-, suivi des 4 premières lettres 
du nom de client, suivi du numéro de facture. 


] A B c 

1 |Année Numéro 

2 14 00000 
3 15 00000 
4 16 00000 
5 17 00000 
6 | 18 00000 
7 19 00000 
8 20 00000 
9 | 21 00000 
10 | 22 00000 
"| 


Numéros + 


Cela étant, voici l'état intermédiaire où nous sommes arrivés. Il permet de tester le début de 
facture. La routine CréeFact est décomposée en petites procédures accomplissant un petit rôle 
bien délimité, dans l'ordre : obtenir et renvoyer un numéro, obtenir le client, et remplir le début de 
a facture. On a aussi créé le début des routines des autres fonctionnalités. 


Sub NouvCli() 
Rdatex = "D5" 
If Not InitFait Then Init 


NouvCli 


End Sub 
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AES ModCli 
Sub ModCli () 

Rdatex = "DS" 

If Not InitFait Then Init 


End Sub 


M ea etre DEPO MEE EE CréeFact 
Sub CréeFact () 
Rdatex = "D13" 
If Not InitFait Then Init 
LitNum 
AcquiertCli 
If Not Satisf Then Exit Sub 
DebFact 
' Etat intermédiaire pour tester le début de facture et la BDi 
MajNum 
WkFact.Save 
WkFact.Close 
End Sub 


La routine Init place dans le classeur la date de dernière exécution de la fonctionnalité, 
ce qui permet un traçage des versions puis initialise les variables Repert et Sep 
(composantes des noms de classeur : notre programmation de sep rend le programme 
compatible MAC). wspc1i est le nombre de données client. 


Sub Init () 
InitFait = True 
Range (Rdatex) .FormulaLocal = Date 
ThisWorkbook. Save 
NbDCli = 8 


End Sub 


La routine LitNum obtient le numéro séquentiel de facture à appliquer. Elle ouvre (et referme) le 
classeur Mum.x/sx, prend le n? sur la ligne correspondant à l'année puis construit la chaine de 
caractères qui forme le numéro formaté : année-numéro sur 5 chiffres. 


e a a a ee LitNum 
Sub LitNum( 
Dim L As Integer 
L = CInt (Right (CStr (Year (Date)), 2)) - 2 
Set WkNum = Workbooks.Open(Filename:-Repert + Sep + "Num.xlsx") 
Set ShNum = WkNum. Sheets ("Numéros") 
NumSeqFact = SnNum.Cells(L, 2).Value + 1 


NumFact = Format (L + 2, "00") + "-" + Format (NumSegFact, "00000" 
WkNum.Close 
End Sub 


On a décomposé la gestion en deux procédures, car il faut inscrire le nouveau numéro dans le 
dasseur Num seulement à la fin pour savoir si la facture aura été réellement faite. D'où la 
procédure MajNum exact pendant de LitNum. 
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RE nn nu m2 0 en ne à e e ne e nn euo ac eese d Ma jNum 
Sub MajNum() 
Dim L As Integer 
L = CInt(Right(CStr(Year(Date)), 2)) - 2 
Set WkNum = Workbooks.Open(Filename:-Repert + Sep + "Num.xlsx" 
Set ShNum WkNum.Sheets ("Numéros") 
ShNum.Cells(L, 2).Value = NumSeqFact 
WkNum.Save 
WkNum.Close 
End Sub 


--AcquiertCli 
Sub AcquiertCli() 
Satisf = False 


Mode = 2 
UF Client.Show 
End Sub 


Sub DebFact ( 
NomFichFact = "F-" + Left(DonCli(2), 4) + NumFact + ".xlsx" 
Set WkFact = Workbooks.Open(Repert + Sep + "ModeleFacture.xlsx" 
WkFact.SaveAs Repert + Sep + NomFichFact 


Set ShFact = WkFact.Sheets ("Facture") 

ShFact .Range ("E6").Value = NumFact 

ShFact.Range ("A8") .Value = DonCli (8) 

ShFact .Range ("B8").Value = DonCli (1) +" " + DonCli(2) +" "4+ _ 
DonCli (3) 

ShFact.Range("B9").Value = DonCli(4) + " " + DonCli (5) 

ShFact .Range ("B10") .Value = DonCli(6) + " " + DonCli(7) 


End Sub 


Acquierrcii ne fait qu'appeler la BDi et obtenir les données du client. On voit dans 
CréeFact que, à l'issue de cela, si sat ist est faux, donc si on n'a pas obtenu de client, 
on quitte la procédure et ni la facture, ni le classeur facture ne sont créés. Donc le numéro 
n'a pas à être mis à jour dans Aum.xlsx. 

DebFact commence par construire le nom du fichier facture NomFichFact = F- puis les 
4 premières lettres du nom du client puis le n° formaté. Ensuite elle charge le modèle de 
facture et le sauvegarde aussitôt sous le nom définitif. Ensuite, elle implante les données 
du client dans la facture. A cette étape, la cellule AB reste vide puisqu'on ne gère pas le 
numéro de client. 

Vous pouvez maintenant sauvegarder le classeur programme sous le nom Facturation1.x/s. 
Rappelons la consigne : vous devez avoir mis de côté une copie des fichiers originaux 
téléchargés. En cas de problème sur un classeur de travail, vous devez pouvoir recopier 
un exemplaire du classeur original de chaque étape. 

Ici, nous avons même organisé une étape intermédiaire : dans l'état actuel du programme, 
vous pouvez appeler la facturation ; vous pourrez entrer les données de clients et vérifier 
que les numéros de facture obéissent bien à la séquence convenable (aussi d'après les 
noms de fichiers créés) et que les données client sont bien installées dans la facture. 
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4. LES LIGNES DÉTAIL 


Il reste à remplir la facture avec les lignes détail. Pour chacune, une BDi permettra de choisir le 
produit dans un ComboBox et de spécifier la quantité ; si celle-ci dépasse le stock, l'utilisateur doit 
la réduire. Pour cette étape, nous utilisons un classeur Produits. x/sx tout fait. Nous avons introduit 
une rubrique «Stock d'alerte» qui ne sera pas du tout utilisée pour le moment. 


4 A | B [d ES Se E | F 
1 | Référence Désignation PU Stock — Stock d'alerte 
2 |F223 Ballon Foot 30,00 € 50 10 
3 |B210 Ballon Basket 20,00 € 50 10 
4 |B300 Panier Basket 35,00 € 30 5 
§ |J150 Tatami 25,00 € 30 10 
6 |C100 Gants de boxe 15,00 € 30 10 
T |V100 VIT enfant 105,00 € 20 5 
8 |V200 VTT homme 15 vit 130,00 € 20 5 
9 |V210 VTT homme 21 vit 165,00 € 20 5 
10 V300 VIT femme 18 nt 140,00 € 20 5 
11 H110 Tenue VIT 90,00 € 15 5 
12 |H150 Kimono Judo 40.00 € 12 5 
13 |H200 Survet femme 50,00 € 15 10 
14 |H300 Survet homme 60,00 € 20 10 
15 |H400 Survet enfant 35,00 € 20 10 
16 |H310 Short natation homme 25,00 € 20 5 
17 |H210 Maillot nageur femme 40.00 € 30 10 
18 |H320 Bikini 30,00 € 40 20 
19 |C200 Punching-ball 20,00€ 20 10 
N. 
Liste 


Nous ajoutons les déclarations publiques : 
|Public LDF As Integer, DonProLdf(4) As String, NbDpLd As Integer 


respectivement numéro (sur la feuille facture) de la ligne détail, données du produit et nombre de 
données qui vont sur la ligne détail, et il faut créer la BDi d'entrée de la ligne détail. 


5. La BDI UF_LIGDETFACT 


iE: UF _LigDetFact V 22/01/15 F 23/01/16 
| Référence-Désignation -] 
| Stock PU. 


La gestion ne fait intervenir que des éléments déjà vus. Le label sous le titre est invisible à 
l'exécution. Les TextBox Stock et PU sont désactivées : elles affichent la valeur trouvée dans la 
BD Produits, et l'utilisateur ne peut les changer. 
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Pour choisir le produit, nous implantons une ComboBox qui affichera référence et désignation des 
produits trouvés dans Produ/ts.x/sx. Les boutons de validation sont semblables à ce que nous 
avons déjà vu, sauf qu'il ny a pas de Quitter et le libellé de 8 ox Dern est ajusté puisque nous 
avons des lignes-détail. 


La gestion repose sur les booléens Sat ist et Dernier (dernière ligne détail), d'où le module de 
l'UserForm : 


Dim lp As Integer, Ref As String, Des As String, Stock As Integer 


Sub RecDonFEro() 


DonProLdf(i) = Ref 
DonProLdf(2) - Des 
DonProLdf(3) - TextBox2.Text 
DonProLdf(4) - TextBox3.Text 


End Sub 


Private Sub B Annul Click() 
Dernier - False 
Satisf - False 
WkPro.Close 
Unload Me 

End Sub 


Private Sub B OK Click( 
RecDonPro 
Dernier = False 
Satisf = True 
WkPro.Close 
Unload Me 

End Sub 


Private Sub B OKDern Click() 
RecDonPro 


Derni True 


Satisf - True 
Wkbro.Close 
Unload Me 

End Sub 


Private Sub ComboBox1 Exit (ByVal Cancel As MSForms.ReturnBoolean 
Dim p As Integer, c As String 
c = ComboBox1l.Text 
pose InStr(c, "-") 
Ref = Left(c, p — 1) 
Des = Mid(c, p + 1) 
For lp = 2 To 1000 
If IsEmpty(ShPrc.Cells(lp, 1)) Then Exit For 
If ShPro.Cells(lp, 1).Value - Ref Then Exit For 
Next lp 
Stock - ShPro.Cells(lp, 4).Value 
TextBoxl.Text = CStr(Stock 
TextBox2.Text = CStr(ShPro.Cells(lp, 3).Value) 
End Sub 
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Private Sub TextBox3 Exit (ByVal Cancel As MSForms.ReturnBoolean) 
If CInt(TextBox3.Text) » Stock Then 
MsgBox "QTE trop grande" 
Cancel - True 
End If 
End Sub 


Private Sub UserForm Activate() 
ComboBoxl.Clear 
Set WkPro = Workbooks.Open(Repert + Sep + "Produits.xlsx" 
Set ShPro = WkPro.Sheets ("Liste") 
For lp - 2 To 1000 
If IsEmpty(ShPro.Cells(lp, 1)) Then Exit For 
ComboBoxl.AddItem ShPro.Cells(lp, 1).Value + "-" + 
ShPro.Cells(lp, 2).Value 
Next lp 
End Sub 


On a introduit les variables (pas publiques, mais globales pour le module associé à la BDi) : 1p 
(ligne du produit dans on classeur), Re? (référence), Des (désignation) et Stock. 


La routine UserForm Activate se charge d'ouvrir le classeur produits : il restera actif jusqu'à 
fermeture de la BDi puis elle remplit la liste déroulante de la ComboBox avec «référence» <tiret> 
«désignation» de tous les produits qu'on a sur la BD. 

Nous ne détaillons pas les routines de clic des boutons, c'est du « déjà vu ». Élément nouveau, 
chaque routine ferme le classeur Produits. Les deux routines o« font appel à la procédure 
RecDonPro qui transfère les données de la BDi dans le tableau ponPror.df qui permet au 
Module 1 de récupérer ces données pour les installer sur la facture. 


ComboBoxl Exit est appelée lorsqu'on quitte la ComboBox après avoir choisi le produit : la 
référence et la désignation du produit forment la chaine c qu'on décompose en Ref (portion avant 
le tiret) et Des (portion après le tiret). Ensuite, la boucle For 1p ..cherche (en se basant sur la 
référence) la ligne où se trouve ce produit sur la feuille du classeur Produits. Ayant cette ligne, on 
trouve le stock actuel et le prix unitaire du produit et on les affiche dans les contróles 
correspondants. Rappelons que ces TextBox sont désactivées : l'utilisateur ne peut changer ces 
données. 

TextBox3 Exit est appelée en sortie de la fourniture de la quantité : on vérifie que le stock est 
suffisant et on ne quitte pas la zone d'entrée tant que la quantité ne convient pas, c'est dire que la 
seule chose que l'utilisateur peut faire est de taper une quantité inférieure au stock. Un tel 
probléme ne se pose pas dans un libre-service oü le client se présente à la caisse avec son achat : 
puisqu'il l'a pris sur le rayon, c'est quil était en stock. 


6. ADAPTEZ LE MODULE 1 
La routine Init reçoit l'instruction supplémentaire : 


| NbDpLd - 4 
et la procédure CréeFact est maintenant : 


Sub CréeFact() 
Dim k As Integer, Rep 
Rdatex = "D13" 
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If Not InitFait Then Init 
LitNum 

AcquiertCli 

If Net Satisf Then Exit Sub 


DebFact 

LDF = 13 

Dernier = False 

While Not Dernier 
Satisf = False 


UF_LigDetFact.Show 
If Satisf Then 
LDF = LDF + 1 
ShFact.Cells(LDF, 1) .Select 
If LDF > 14 Then 
Selection.EntireRow.Insert 
ShFact.Cells(LDF, 6).FormulaR1Cl = _ 
ShFact.Cells(LDF - 1, 6).FormulaR1Ci 
End If 
For k = 1 To NbDpLd 
SnFact.Cells(LDF, k + 1).Value = DonProLdf (k) 
Next k 
End If 
Wend 
Rep = MsgBox("Voulez-vous imprimer maintenant ?", 
vbQuestion + vbYesNo, "Facturation") 
If Rep = vbYes Then ShFact.PrintOut 
MajNum 
WkFact.Save 
WkFact.Close 
End Sub 


Les changements sont implantés entre les appels à Debfact et à MajNum. La variable LDF est le 
numéro de ligne sur la feuille Facture où sera implantée la ligne détail en cours. La variable 
Satisf qui a servi pour la BDi client sert maintenant pour la BDi Ligne détail. Si on a bien obtenu 
une ligne détail, si c'est la ligne 14, on y met les données, si c'est une ligne supplémentaire, on 
insère une ligne vide et on y copie l'expression de calcul du montant. À ce moment, on transfère 
les données sur la facture. Par recalcul automatique le montant et le pied de facture provisoire se 
mettent à jour. 

La boucle While... Wend continue tant qu'on n'a pas obtenu la dernière ligne détail. Dès que c'est 
le cas, la facture est préte. On demande si l'utilisateur veut l'imprimer tout de suite. À la fin, on 
met à jour Num.x/sx et on ferme le classeur facture après l'avoir sauvegardé. 


Vous pouvez maintenant sauvegarder Facturation1.x/sm (avec les précautions que nous ne 
répéterons plus) et essayer d'obtenir des factures complétes. 
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Les opérations Nouveau client et Modification client seront inspirées de ce que nous avons vu dans 
la Gestion d'une association. C'est pour l'obtention du client pour une facture que les nouveautés 
apparaissent : la recherche du client s'apparente à la recherche pour une modification, mais si le 
dient n'est pas trouvé, on passe à l'entrée manuelle (vue à l'étape 1) avec une différence : on 
peut vouloir ajouter ce client à la base. II s'ajoute aussi la gestion des numéros de clients : ici, un 
simple numéro de séquence lié au numéro de ligne sur la feuille BD et il n'y a aucun classement 
alphabétique. Voici les déclarations publiques qui s'ajoutent : 

Public LigCli As Integer, LdCli As Integer, EntMan As Boolean 


LigCli est le numéro de ligne sur la feuille BD clients, .cc1i le numéro de premiere ligne utile 
(2) et EntMan est True si on passe en mode entrée manuelle lorsqu'on ne trouve pas le client 
dans la base. 

La Bdi Ur Client n'a que le bouton Suppression] en plus, et le label et la TextBox du numéro de 
client sont maintenant visibles. 


1. LE MODULE DE LA BDI UF_ CLIENT 


Dim Ldebut As Integer 
Sub LitDonCli() 
Dim i As Integer 
ComboBoxl.Text - ShCli.Cells(LigCli, 1) 


For = 1 To NbDC1li-1 
Controls("TextBox" + CStr(i)).Text = SnCli.Cells(LigCli, i + 1) 
Next i 
End Sub 


Sub RecDonCli () 
Dim i As Integer 


DonCli(1) = ComboBoxl.Text 
For i = 1 To NbDCli-1 
DonCli(l + i) = Controls("TextBox" + CStr(i)).Text 
Next i 
End Sub 


Private Sub B Annul Click() 
Dernier - False 
Satisf - False 
Unload Me 

End Sub 


Private Sub B Correct Click() 
B Suppr.Enabled - True 
B CK.Enabled - True 
B CKDern.Enabled = True 
End Sub 


Private Sub B OK Click() 
RecDonCli 
Dernier - False 
Satisf - True 
Unload Me 

End Sub 
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Private Sub B OKDern Click() 
RecDonCli 
Dernier - True 


Satisf - True 
Unload Me 
End Sub 


Private Sub B Quit Click( 


Dernier - True 
Satisf - False 
Unload Me 

End Sub 


Private Sub B Suppr Click() 
Dim Rep 
Rep = MsgBox("Etes-vous sûr de vouloir supprimer ce client ? ", 
vbYesNo + vbQuestion) 
If Rep - vbYes Then 
ShCli.Activate 
ShCli.Cells(LigCli, 1).EntireRow.Delete 
B Annul Click 
End If 
End Sub 


Private Sub B Ver Click() 
Dim Tr As Boolean, Rep 
Select Case Mode 


Case 0 
If (TextBoxl.Text - "") Or (TextBox2.Text - "") Then 
MsgBox "Il faut au moins le nom et le prénom" 
Exit Sub 
End If 
Tr = False 


For LigCli = Ldebut To 1000 
If IsEmpty(ShCli.Cells(LigCli, 1)) Then Exit For 
If (ShCli.Cells(LigCli, 1).Value - TextBoxl.Text) And 
(SaCli.Cells(LigCli, 2).Value = TextBox2.Text) Then kn 
Tr - True o 
"pas d'Exit pour que LigCli soit tjrs la lre ligne vide 
Next LigCli 
If T» Then 
Rep = MsgBox("Ce nom et prénom sont déjà présents" + vbCr + — 
"voulez-vous tout de méme entrer ce client", vbYesNo + 
vbExclamation) P 
If Rep = vbYes Then B_OK.Enabled= True: B_OKDern.Enabled= True 
Else 
B_OK.Enabled = True: B_OKDern.Enabled = True 
End If 
Case 1, 2 
If (TextBoxl.Text - "") Then 
MsgBox "Il faut fournir le nom" 
Exit Sub 
End If 
Tr - False 
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For LigCli - Ldebut To 1000 
If IsEmpty(ShCli.Cells(LigCli, 1)) Then Exit For 
If (ShCli.Cells(LigCli, 2).Value = TextBoxl.Text) Then — 
Tr - True: Exit For 


Next LigCli 
If Tr Then 


LitDonCli 
Ldebut = LigCli + 1 
Else 
If Mode = 2 Then e 


Rep = MsgBox("Nom non trouvé. Entrer manuellement ?", 
vbYesNo + vbExclamation) 
If Rep - vbYes Then 
B OK.Enabled - True 
EntMan = True e 
End If 
Else 
MsgBox "Nom non trcuvé" 
End If 
End If 
End Select 
End Sub 


Private Sub TextBoxl Exit(ByVal Cancel As MSForms.ReturnBoolean 
If EntMan Then Ex Sub 
B CK.Enabled - False 
B CKDern.Enabled - False 

End Sub 


Private Sub TextBox2 Exit(ByVal Cancel As MSForms.ReturnBoolean 
If EntMan Then Exit Sub 
B CK.Enabled - ise 
B_OKDern.Enabled = False 

End Sub 


Private Sub UserForm Activate() 
ComboBox1.Clear » 
ComboBoxl.AddItem "M." 
ComboBoxl.AddItem "Mme" 
ComboBoxl.AddItem "Mle" 
EntMan - False 
Ldebut = LdCli 
Select Case Mode 


Case 0 
Me.Caption = "Nouveau Client" 
B_Ver.Caption = "Vérifier" 


B Correct.Enabled = False 
B Correct.Visible = False 
B Suppr.Enabled = False 
B_Suppr.Visible = False 


Case 1 
Me.Caption = "Modification/Suppression Client" 
B Ver.Caption = "Chercher/Suivant" 


B Correct .Enabled = True 
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© 


B_Correct.Visible = True 
B Suppr.Enabled = False 
B Suppr.Visible = True 
Case 2 
Me.Caption = "Trouver Client" 
B OK.Enabled = True 
B OK.Visible = True 
B OKDern.Enabled = False 
B OKDern.Visible - False 
B Annul.Enabled - True 
B Annul.Visible - True 
B Quit.Enabled - True 
B Quit.Visible - True 
B Ver.Caption = "Chercher/Suivant" 
B Correct.Enabled - True 
B Correct.Visible - True 
B Suppr.Enabled - False 
B Suppr.Visible - True 
End Select 
End Sub 


Les routines RecDonCli, B Annul Click,B OK Click etB OKDern Click sont identiques 
à celles de la 1'* étape (page 221). Ces routines plus B Quit Click etB Correct Click sont 
identiques à celles du cas précédent (pages 207 et 208). B Suppr Click est l'adaptation de la 
routine du même nom de la page 208. 

La nouvelle routine LitDonC1i est la symétrique de RecDonc1i : elle inscrit dans les contrôles 
les données du client et est appelée dans B Ver C: ick lorsqu'on a trouvé le nom cherché. 
TextBox1 Exit etTextBox2 Exit sont semblables à leurs pendants de la page 209. La seule 
différence est qu'on neutralise la routine si on est en entrée manuelle (Ent. Man True). 

Voyons maintenant les changements plus considérables : 

ÜserForm Activate reçoit en plus les initialisations de Ldebut et zntMan. Mais surtout, les 
trois cas du Select Case sont remplis pour fixer le titre de la BDi, les légendes, la visibilité et 
l'activation des boutons voulus. 

B Ver Click devient trés élaborée. Le Select Case traite les trois cas, encore que Mode-1 et 
Mode-2 sont réunis mais la possibilité de passer en entrée manuelle si le nom n'est pas trouvé (ou 
pas satisfaisant) est réservée à Mode=2 (entrée de facture) : 6€. Si le passage en entrée manuelle 
est accepté par l'utilisateur, on met EntMan à Truc: ©. 

© : la boucle de recherche dans le cas nouveau client a une différence par rapport au chapitre 
précédent : elle n'est pas interrompue si le nom est trouvé car si on veut tout de méme entrer ce 
client, il faut que LigC:i pointe vers la 1"€ ligne vide : en effet ni NouvC1i ni AcquiertCli de 
Module 1 n'ont de boucle pour trouver cette ligne vide. 


LES PROCÉDURES DE MODULE 1 

La procédure Init gagne l'instruction LdC1i = 2. 

Les procédures NouvCli et ModC1i sont maintenant complètes et on ajoute les procédures 
OuvCli (ouverture du fichier clients) et Ecritc1i (transfert des données client obtenues dans la 


BDi vers la BD Clients). Sa première instruction est à remarquer : si le client est nouveau (soit par 
Mode-0, soit par Entman vrai), on génère le n° de client. 
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DSSS ER Se SS SSeS OuvCli 
Sub CuvCli () 
Set WkCli = Workbooks.Open(Repert + Sep + "Clients.xlsx" 
Set ShCli = WkCli.Sheets("Clientéle") 
End Sub 
M DI E MEE ACE EMO I M UR RU DUREE EcritCli 


Sub EcritCli( 
Dim k As Integer 
If (Mode = 0) Or EntMan Then DonCli(8) = CStr(LigCli - 1) 
For k = 1 To 8 
ShCli.Cells(LigCli, k).Value = DonCli(k) 
Next k 
End Sub 


Sub NouvCli() 


Rdatex = "D5" 
If Not InitFait Then Init 
OuvC1li 


Dernier - False 
Wnile Not Dernier 

Satisf - False 

Mode - 0 

UF Client.Show 

If Satisf Then EcritCli 
Wend 


CS SE ModCli 
Sub ModCli( 
Rdatex = "DS" 
If Not InitFait Then Init 
Ouvcli 
Dernier = False 
Wnile Not Dernier 
Satisf - False 
Mode = 1 
UF_Client.Show 
If Satisf Then EcritCli 
Wend 
WkCli.Save 
WkCli.Close 
End Sub 


NouvCl: et ModC1i ontla méme structure générale qu'au chapitre précédent, donc nous n'en 
disons pas plus. 

C'est la procédure Acquier:c1ii qui a les changements les plus cruciaux, sans être volumineux, 
les autres sont inchangées. 
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economie coco ordis te AcquiertCli 
Sub AcquiertCli() 

Satisf = False 

OuvCli 

Mode - 2 

UF Client.Show 

If Satisf And EntMan Then EcritCli 

WkCli.Save 

WkCli. 
End Sub 


L'instruction If Satisf And EntMan Then EcritCli est la plus intéressante : Satisf ne 
suffit pas à décider d'écrire dans la BD les données client acquises. Rappelons que AcquiertCli 
est appelée en cours de facturation. Donc Satis £ = vrai peut signifier qu'on a trouvé le client 
voulu dans la base : il est alors inutile d'écrire les données dans la base, elles y sont déjà. Si 
EntMan est vrai aussi, alors on est passé en entrée manuelle et les données doivent étre écrites. 
Si Sat ist est faux, on n'a pas validé les données, donc on ne doit pas les écrire. 

Vous devez maintenant sauvegarder le classeur programme sous le nom Facturation2.x/sm (vous 
avez gardé une copie du classeur téléchargé). Les tests sont assez compliqués car il y a de 
nombreux cas de figure : 

— entrée d'une série de nouveaux clients ou d'un seul 

— modification d'une série de clients, ou d'un seul 

— entrée d'une facture : on trouve le client dans la base 

— entrée d'une facture : le client n'étant pas dans la base, on l'entre manuellement. 


| A B c D E F G H 
1 | MMmeMle Nom Prénom Adresse 1 Adresse 2 cP Ville NumCli 
2|M DUCK Donald Le Bois Sacré 1 rue du Débarquement 14000 Caen 1 
3M DUPONT Georges Ker Mag 20 Av Jofre 44500 La Baule 2 
4M DURAND Chades 12 rue de la Lune. 75003 Paris 3 
5M FRICOTIN Bibi 2 rue de Bellewe 75019 Paris 4 
6 |M GUIGNOL Alben 13 Traboule de la Primatiale 63000 Lyon 5 
7|M MOUSE Mickey Impasse du Fromage 38000 Grenoble 6 
8 |Me DUCK Daisy La Californie 05400 Cannes 7 
9 [Mme DUVAL Louise 135 rue des Champs 77390 Crisenoy 8 
10 
= | Clientèle D 4 
Remarque 
Si vous effectuez des essais en cascade, par exemple modifier un client puis créer une facture 
pour lui, la date d'exécution ne sera marquée qu'en face du bouton de la 1 commande ; c'est dû 


au fait que la variable 1n: c Fa i* garde sa valeur Vrai. Pour y remédier, il faudrait fermer le 
classeur programme et le rouvrir entre chaque essai ou remettre InitFait à Faux la fin de 
chaque commande (Exercice : faites-le). 


ÉTAPE 3 — GESTION DE LA BASE PRODUITS 


Cette gestion va étre beaucoup plus facile que la gestion de la BD Clients. Il n'y a pas d'interaction 
avec l'entrée d'un produit dans une facture. La recherche en vue d'une modification est trés 
simplifiée : on n'utilise que la référence. Donc nous ne détaillons pas nos explications puisque tous 
les principes ont déjà été vus. 


1. BDIUF PRODUIT 


Il s'introduit une BDi UF Produit, qui ressemble à UF Client, mais à la gestion plus simple : 


Produit 


UF_Produt V 23/01/16 F 23/01/16 


Référence Chercher 
Désraton! |. 
D PU 

Stock Suppression 
Stock d'alerte 


LoX*X [eeme[: mue [: ow | 


Voici le module associé. On peut faire la même remarque qu'à l'étape 1 au repère ©. 


Dim Ldebut As Integer 
Sub LitDonPro() 
Dim i As Integer 


For i = 1 To NbDpro 
Controls("TextBox" + CStr(i)).Text = SnFro.Cells(LigPro, i) 
Next i 
End Sub 


Sub RecDonPro() 
Dim i As Integer 


For i - 1 To NbDpro 
DonPro(i) = Controls("TextBox" + CStr(i)).Text 
Next i 
End Sub 


Private Sub B Annul Click() 


Dernier - False 
Satisf - False 
Unload Me 

End Sub 


Private Sub B OK Click() 
RecDonPro 
Dernier - False 
Satisf - True 
Unload Me 

End Sub 
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Private Sub B OKDern Click() 
RecDonPro 
Dernier - True 
Satisf - True 
Unload Me 
End Sub 


Private Sub B Quit Click( 


Dernier - True 
Satisf - False 
Unload Me 

End Sub 


Private Sub B Suppr Click() 
Dim Rep 
Rep = MsgBox("Etes-vous sûr de vouloir supprimer ce produit ? " 
vbYesNo + vbQuestion) 
If Rep - vbYes Then 
ShPro.Activate 
ShPro.Cells(LigPro, 1).EntireRow.Delete 
B Annul Click 
End If 
End Sub 


Private Sub B Chercher Click() 
Dim Tr As Boolean, Rep 


If (TextBoxl.Text - "") Then 
MsgBox "Il faut fournir la référence" 
Exit Sub 

End If 


B Suppr.Enabled - False 
Select Case Mode 
Case 0 
Tr - False 
For LigPro - Ldebut To 1000 
If IsEmpty(ShPro.Ceils(LigPro, 1)) Then Exit For 
If (ShPro.Cells(LigPro, 1).Value - TextBoxl.Text) Then - 
Tr - True o 
"pas d'Exit pour que Ligpro soit tjrs la lre ligne vide 
Next LigPro 
If Tr Then 


MsgBox ("Référence déjà présente ; changez-la") 
Else 
B OK.Enabled - True: B OKDern.Enabled - True 
End If 
Case 1 
Tr - False 


For LigPro - Ldebut To 1000 
If IsEmpty(ShPro.Cells(LigPro, 1)) Then Exit For 
If (ShPro.Cells(LigPro, 1).Value = TextBoxl.Text) Then MS 
Tr - True: Exit For 
Next LigPro 
If Tr Then 
LitDonPro 
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B Suppr.Enabled - True 
B OK.Enabled = True: B OKDern.Enabled = True 
Else 
MsgBox "Référence non trouvée" 
End If 
End Select 
End Sub 


Private Sub TextBoxi Exit (ByVal Cancel As MSForms.ReturnBoolean 
Ldebut = LdPro 
B CK.Enabled = 
B CKDern.Enabled = False 
End Sub 


Private Sub UserForm Activate() 
Ldebut - LdPro 
Select Case Mode 


Case 0 
Me.Caption - "Nouveau Produit" 
B Chercher.Caprion = "Vérifier" 


B Suppr.Enabled - False 
B Suppr.Visible - False 


Case 1 
Me.Caption - "Modification/Suppression Prcduit" 
B Chercher.Caption - "Chercher" 


B Suppr.Enabled - False 
B Suppr.Visibie - True 
End Select 
End Sub 


2. ADAPTEZ LE MODULE 1 


Les seules procédures changées sont NouvProd et ModProd, et il s'ajoute OuvPro (ouverture du 
classeur BD Produits) et EcritPro (écriture du produit) : 


Sub CuvPro( 
Set WkPro = Workbooks.Open(Repert + Sep + "Produits.xlsx" 
Set ShPro - WkPro.Sheets ("Liste") 

End Sub 


SESE SS SSS SE SE SE SSS SE SST SSS SE ES SE Sa EcritPro 
Sub EcritPro() 
Dim k As Integer 
For k = 1 To NbDpro 
ShPro.Cells(LigPro, k).Value = DonPro(k 
Next k 


DRE IEEE NouvProd 
Sub NouvProd() 

Rdatex - "D21" 

If Not InitFait Then Init 
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OuvPro 

Dernier - False 

While Not Dernier 
Satisf = False 
Mode = 0 


UF Produit.Show 

If Satisf Then EcritPro 
Wend 
WkPro.Save 
WkPro.Close 


End Sub 
Nee a a a oa d Cim ra E pei tuia au nn ne Se eS din ss ss ModProd 
Sub ModProd() 
Rdatex = "D25" 
If Not InitFait Then Init 
OuvPro 
Dernier = False 
While Not Dernier 
Satisf = False 
Mode = 1 


UF Produit.Show 
If Satisf Then EcritPro 
Wend 
WkPro.Save 
WkPro.Close 
End Sub 


Vous devez maintenant sauvegarder le classeur sous le nom Facturation3.x/sm. Les essais à 
effectuer sont plus simples : entrez quelques nouveaux produits et faites quelques modifications 
comme changement de stock ou de prix unitaire. 
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Vous devez bien sûr examiner ces programmes avec soin pour bien les comprendre et, éven- 
tuellement y trouver des erreurs (nous avons testé un certain nombre de cas de figure mais...). 
Notez que les fichiers BD doivent être fermés puisque nous n'utilisons pas la fonction Ouvert. 


Il reste à traiter la reprise facture et ajouter le système d'aide. Par ailleurs, si l’on a beaucoup de 
produits, la liste déroulante pour le choix de produit d'une ligne détail de facturation risque d'être 
peu pratique. Une solution est de gérer les produits par catégories, donc d'ajouter une ComboBox 
alaBD UF LigDet Fact : une fois la catégorie choisie, on remplit la liste de choix de produits 
uniquement avec les produits de cette catégorie. On peut éviter d'ajouter une rubrique si on 
décide que la première lettre de la référence représente la catégorie. 

Un autre changement possible est celui-ci : dans la gestion du cas où, en facturation, ne trouvant 
pas le client dans la base, on l'entre manuellement, ses données sont ajoutées d'office dans la 
base de données avec le programme tel que nous l'avons écrit. On pourrait vouloir que cette 
entrée soit confirmée par l'utilisateur : on aurait en somme un « dient temporaire ». (Notons 
qu'avec le programme actuel, on peut supprimer ce client aprés coup). 

Autres ajouts possibles : 

TVA variable selon les produits, donc gestion d'un code TVA attaché au produit ; le pied de facture 
va être fortement modifié puisqu'il faut un total HT pour chaque taux et la TVA et le TTC de 
chaque taux. 

Un systéme de remise en fonction du total de la facture considérée et éventuellement fonction 
aussi du chiffre d'affaires total fait avec ce client dans l'année ; dans ce cas, il y a une rubrique de 
plus à gérer sur les clients. 

Une gestion de stocks simple à ajouter est de regarder chaque fin de semaine (ou de journée) 
quels sont les produits arrivés au stock d'alerte. Cela implique une gestion des fournisseurs (une 
BD de plus) et l'émission de bons de commande. 


L'écriture d'un résumé de la facture dans une feuille journal qui fera la liaison avec la comptabilité. 
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Tours de Hanoi 


Étape 1 — Résolution 
Étape 2 - Visualisation 


Étape 3 - Déplacements intermédiaires 


Étape 4 - Déclenchement par boutons 
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Nous passons à un probléme issu de la mythologie bouddhique célébre parmi les informaticiens et 
autres mathématiciens. On a trois piquets autour desquels on peut empiler des disques. Au départ, 
les n disques sont par diamétres décroissants sur le piquet 1. Le probléme est de les faire passer 
sur le piquet 2 en obéissant aux régles suivantes : 

Tout disque doit étre sur un piquet (on ne peut pas les poser sur la table). 


On ne peut déplacer qu'un disque à la fois. 


Sur un piquet, à tout moment, il ne peut pas y avoir un disque plus grand au-dessus d'un disque 
plus petit ; les diamétres doivent étre décroissants, mais pas forcément consécutifs. 


Voici un jeu à 7 disques (carrés) tel qu'il est vendu dans le commerce : 


SOLUTION RÉCURSIVE 


La récursivité nous offre une solution élégante au probléme. Supposons que nous sachions 
effectuer la manœuvre selon les règles pour n-1 disques, alors nous savons la faire pour n 
disques : en effet, on effectue la manœuvre pour les n-1 premiers du piquet 1, en les plaçant sur 
le piquet 3 (au lieu du piquet 2), on place le dernier sur le piquet 2, on effectue une nouvelle fois 
la manceuvre pour les n-1 disques sur le piquet 3 (au lieu du piquet 1) pour les mettre sur le 
piquet 2. 
Or, nous savons faire la manceuvre pour n-1 (il suffit de faire le mouvement une fois). Donc nous 
savons la faire pour 2, pour 3... pour n quel que soit n. Il est démontrable que le nombre de 
mouvements est 2"-1, donc pour 9, cela fera déjà 511 mouvements, mais c'est possible. 
La procédure se lit : déplacer n disques au départ du piquet i au piquet j, c'est déplacer les 
n-1 premiers de i au 3€ piquet (qui est 6-i-j puisque 1+2+3=6), puis déplacer le dernier disque de 
i à j, puis déplacer les n-1 disques du 3€ piquet au piquet j. 
Passons à la programmation, appelons Déplacer (n As Integer,i As Integer,j As 
Integer) la procédure (décrite ci-dessus). C'est une procédure récursive, elle s'appelle elle- 
méme ; elle peut s'écrire : 
Sub Déplacer(n As Integer, i As Integer, j As Integer) 

Lf > 1 Then 


DLépiancer(dn 0 01706 ME 

Déplacer 1, i, j 

Béplacer n= dy 59-3 = 3, j 
Else 
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Debug.Print "Je déplace de " & i & " vers " & j o 
End If 
End Sub 
Sub essai() 
Déplacer 7, 1, 2 
End Sub 


On voit que notre procédure a, comme toute procédure récursive écrite correctement, une 
branche où elle ne s'appelle pas elle-même (9) pour permettre à la récursivité de s'arrêter. 

Sil n'y a qu'un disque, on écrit un texte dans la fenêtre Exécution décrivant le déplacement à 
effectuer qui fournira ainsi la « feuille de route » a suivre. 

Ceci constitue le classeur Hano/0.x/sm. Pour terminer l'étape 1, nous introduisons d'abord le 
paramétrage du nombre n de disques qui va étre demandé à l'utilisateur. Le maximum ici sera 9, 
ce qui est déjà beaucoup (puisqu'on démontre que le nombre de mouvements est 

2"-1, donc pour 9, cela fera déjà 511 mouvements). 

Pour préparer la visualisation, nous mémorisons les mouvements en introduisant les variables 
NbMouv (nombre de mouvements) et le tableau Mouv dont les éléments sont de type défini par le 
programmeur. Toutes ces variables sont globales mais non publiques puisque ce probléme ne fait 
intervenir qu'un module. 

D'où le module de Aanoí1.xlsm : 


Type Mvt 
de As Integer 
a As Integer 
End Type 
Dim NbMouv As Integer, Mouv(511) As Mvt, n As Integer 


Sub Déplacer(n As Integer, i As Integer, j As Integer 
Ift n > 1 Then 
Déplacer n ratius ds; i j 


Déplacer 1, i, j 

Déplacer n = I; 6c i= jr 3 
Else 

NbMouv = NbMouv + 1 

Mouv (NbMouv) .de = i 


Mouv (NbMouv).a = j 
Debug.Print "Je déplace de " & i & " vers " & j 
End If 
End Sub 


Sub essai() 


n = CInt(InputBox("Nb de disques (max ©) ?", "Hanoi", "7")) 
NbMouv - 0 
Déplacer n, 1, 2 
Debug.Print "Il y a eu " & NbMouv & " mouvements" 
End Sub 
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Nous ferons la visualisation dans la feuille unique du classeur, où nous afficherons les aspects 
successifs. Le disque n° n sera représenté par n signes = cadrés à droite dans une cellule et n 
signes = cadrés à gauche dans la cellule à droite. L'axe du piquet sera matérialisé par une bordure 
verticale épaisse. Voici l'aspect initial pour 9 disques : 


A B Cc D E F G H 


1. LA ROUTINE ESSAI 


La seule modification de la routine essai est qu'elle appelle DessiniInit avant la résolution et 
Dessin après. La principale variable globale introduite est le tableau Sommet (3) qui indique la 
position du plus haut disque de chaque piquet (13 pour un piqu& vide, 12 s'il y a un disque). 


Sub essai() 
n = CInt(InputBox("Nb de disques (max 9) ?", "Hanoi", "7")) 
NbMouv = 0 
DessinInit 
Déplacer n, 1, 2 
Debug.Print "IL y a eu " & NbMouv & " mouvements" 
Dessin 
End Sub 


Vous devez en outre recopier la procédure Delai (Apprentissage : page 123) car on va l'utiliser : 


Sub Delai(s As Single 
s = Timer + s 
While Timer « s 
DoEvents 
Wend 
End Sub 


2. LAROUTINE DESSININIT 


On a d'abord une procédure Bora qui dessine un segment de bordure : on a développé une 
procédure car elle est appelée plusieurs fois et DessinInit qui construit le dessin initial. 


Sub Bord(x As XlBordersIndex) 
With Selection.Borders (x) 
-LineStyle = xl1Continuous 
.Weight - xlThick 
End With 
End Sub 
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Sub DessinInit() 
Dim pl As Integer, k As Integer 


pr = 13 - Hn 

Sommet(1) = pl 

Sommet (2) = 13 

Sommet (3) = 13 

Range ("Al:H14").Clear 


Prépare bordures 

Range ("B13:G13") .Select 

Bord (xlEdgeTop) 

For k = 2 To 6 Step 2 
Range (Cells (pl, k 
Bord (xlEdgeRight) 
Selection.HorizontalAlignment = xlRight 

Next k 

' installe les disques 

For k = pl To 12 


Cells(12, k)).Select 


Cells(k, 2).Value = "'" + String(k = pl + 1, "=") 
Cellisik, 3) Value = "'" 4 String(k - pl + Y, Men) 
Next k 
Range ("Al") .Select 
Delai (0.5) 
End Sub 


La variable importante dans DessinInit est p1 : première ligne occupée. On la déduit de n. On 
commence par vider la zone du dessin qui pourrait avoir été laissé là. Puis on installe les bordures 
servant de plancher et de piquets, puis les disques. On en profite pour aligner à droite les cellules 
qui recevront les demi-disques de gauche. 

Point spécial dans l'installation des disques, il faut précéder la chaine de caractères d'une 


apostrophe sinon la chaîne commençant par = serait prise pour une expression. On termine par un 
délai d'une demi-seconde (vous pouvez changer la valeur) pour voir l'état initial. 


3. LA ROUTINE DESSIN 
Elle consiste essentiellement en une boucle sur les mouvements. Pour chaque mouvement, on met 
dans la variable c la chaine représentant le disque au sommet du piquet de départ (i, ligne L dans 
le dessin) et on range ce disque au nouveau sommet du piquet d'arrivée (j, ligne M dans le 
dessin) @, après l'avoir effacé du haut de son piquet de départ : 6. Puis on met à jour les 
sommets et marque un délai. 
Les numéros de colonne oü mettre les disques sont faciles à calculer : c'est 2*i et 2*j et la colonne 
qui suit. 
Sub Dessin() 
Dim Imv As Integer, i As Integer, j As Integer 
Dim L As Integer, M As Integer, c As String 
For Imv = 1 To NbMouv 
i = Mouv(Imv).de 
j = Mouv(Imv).a 
L = Sommet (i) 
M = Sommet(j) - 1 
pom "t" + Celis(L; 2 * 2) Valine 
Cells(L, 2 * i).Value = "" 
Cds (DL, 2 * 2 4-2) sValue = 0% o 
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Cells(M, 2 * j).Value = c e 
Cells(M, 2 * j + 1).Value = c 

Lor 

M 


Sommet (i) 
Sommet (j) 
Delai (0.3) 
Next Imv 
End Sub 


Ceci est le programme Hano/2.x/sm. Nous installons maintenant quelques améliorations : d'abord 
une visualisation sommaire des déplacements intermédiaires, puis un déclenchement par boutons. 
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Nous effectuons un petit changement dans bessininit : l'opération de suppression d'un 
éventuel dessin précédent est transformée en procédure Annuler. Donc dans DessinInit, au 
lieu de Range ("A1:H14") .Clear, nous avons l'appel Annuler et la procédure Annuler 
consiste en l'unique instruction qu'elle remplace : 


Sub Annuler( 
Range ("A1:H14") .Clear 
End Sub 


Dans Dessin, le seul changement à effectuer est d'insérer l'appel de la procédure Interm entre 
le moment oü on a effacé le disque de son piquet de départ et le moment oü on le dessine en 
haut de son piquet d'arrivée (0 et @ des pages 239 et 240). 


Sub Dessin() 
Dim Imv As Integer, i As Integer, j As Integer 
Dim L As Integer, M As Integer, c As String 


For Imv = 1 To NbMouv 
i = Mouv(Imv).de 
j = Mouv(Imv).a 
L = Sommet (i) 
M - Sommer(j) - 1 
c= "nu" -Cells(L, 2 * i).Value 


Cells(L, 2 * i).Value = "" 
Cells(L, 2 * i + 1).Value = "" 
Interm i, j, c 
Cells(M, 2 * j).Value = c 
Cells(M, 2 * j + 1).Value = c 
Sommer(i) = L + 1 
Sommet (j) = M 
Delai (0.3) 
Next Imv 
End Sub 


C'est la procédure Interm qui a la tâche des affichages intermédiaires. Ses paramètres sont : et 
j, les numéros de piquets de départ et d'arrivée et c qui définit le disque déplacé. La ligne 1i où 
les intermédiaires seront affichés est 2 lignes au-dessus du sommet des piquets, soit 11-n. On 
distingue deux cas : si les deux piquets sont consécutifs, il n'y a qu'un intermédiaire dont la cellule 
gauche est en k, la droite en k+1. Sinon, il y a en plus deux intermédiaires aux 1/3, 2/3. Voici des 
valeurs possibles : 


i j k mi, mi--1 

1 2 3 3,4 

2 3 5 5,6 

1 3 4 3,4;4,5;5,6 


La variable mi désigne successivement la cellule gauche de ces tracés intermédiaires. Chaque 
tracé est fait dans le sous-programme interne d'étiquette Dess. Le tracé revient à dessiner le 
disque, attendre un délai, effacer le disque. 


Sub Interm(i As Integer, j As Integer, c As String) 
Dim k As Integer, mi As Integer, li As Integer 
E CES y ee s 
RE Er | 
It Abs(i- - j) > 1 Then 
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mi = 2 zirk N2 
GoSub Dess 

End If 

mi = k 


GoSub Dess 
If Abs(i - j) > 1 Then 


mi = (2 * j +k) \ 2 
GoSub Dess 
End If 
Exit Sub 
Dess: 
Cells(li, mi).HorizontalAlignment = xlRight 
Cells(li, mi).Value = c 
Cells(li, mi + 1).HorizontalAlignment = xlLeft 
Cells(li, mi + 1).Value = c 
Delai 0.2 
Cells(li, mi).Value = "" 
Cells(li, mi + 1).Value = "" 
Return 
End Sub 


Ceci forme le classeur Hano/3.x/sm. La prochaine étape est l'installation de boutons. 


Remarque 


Ce programme est l'exacte copie de la version développée il y a des années. Comme les 
ordinateurs sont de plus en plus performants, les mouvements sont peut-être un peu trop rapides 
pour être visualisés confortablement sur une machine actuelle. Essayez de changer dans l'avant- 
dernière instruction de la procédure Dessin le délai demandé (0,3) en 0,5 ou plus selon 
expérimentation. 
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1. CRÉER TROIS BOUTONS 


Dans cette étape, nous installons trois boutons (pour la marche à suivre, voir Apprentissage pages 


28-29 et 149). Rappelons que la solution que nous préférons est de tracer un rectangle grâce à un 
outil de la barre d'outils Dessin, puis 


= Clic droit, Ajouter du texte : tapez le titre du bouton (ici : Lancement, Mouvement et 
Annuler) 


= Clic droit, Afecter une macro ; choisissez respectivement essa/, Bouton (une routine nouvelle 
qu'on introduit) et Annuler. 


Pour formater les boutons : 

m Clic droit sur le bouton. Outils de dessin — Format — [Styles de forme] 

m Remplissage : couleur gris clair ; Contour: Épaisseur #4 pt, Tirets Trait continu 
m Accueil- Police : l'exemple ci-dessus a Arial, 12 pt, gras 

m / Accueil — Alignement : centré pour Horizontal et Vertical. 


A B ( D F F G H I 

| 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

10 

17 Lancement Mouvement 

18 

19 

20 

21 Annuler 

m Feuil1 D T 
On a installé les boutons assez bas pour ne pas géner les dessins. 
Au point de vue programme, le changement est que Dess in se subdivise en trois procédures et la 
boucle For Inv ..estréorganisée pour qu'on avance d'un pas à chaque appui sur le bouton 
Mouvement. Dessin se réduit à l'initialisation 1mv-0. Le reste de l'ancienne routine est 
maintenant dans DesMouv qui est appelée par 3cuton. On fait progresser Imv et si Imv a atteint 


le nombre de mouvements à effectuer, l'appel est rendu inopérant car on quitte immédiatement la 
routine. 


Sub Bouton() 
DesMcuv 
End Sub 
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Sub Dessin ( 
Imv = 0 
End Sub 
Sub DesMouv ( 
Dim i As Integer, j As Integer 
Dim L As Integer, m As Integer, c As String 


Imv = Imv + 1 
If Imv > NbMouv Then Exit Sub 


i = Mouv(Imv).de 

j = Mouv(Imv).a 

L = Sommet (i) 

m = Sommet(j) - 1 

c= *" + Cells(L, 2 * i).Value 
Cells(L, 2 * i).Value = "" 
Cells(L, 2 * i + 1).Value 
Interm i, j 
Cells (m, 


ll 
2 


c 
2 * j).Value = c 
Cells(m, 2 * j + 1).Value 
Sommet (i) LE 
Sonmet (j) = m 
End Sub 


[] 
a 


[] 


Ceci fournit le programme Hano/4.x/sm. 


2. COEXISTENCE BOUTONS-TEMPORISATIONS 


On peut remarquer que nous avons enlevé toutes les temporisations dans Hano/4.x/sm. Ce que 
nous avons écrit laisse un probléme potentiel : si vous cliquez sur le bouton pendant un 
mouvement, le système va s'affoler, perdre des disques, etc. Si nous rétablissons les 
temporisations pour que les mouvements aient lieu soit à la demande, soit automatiquement si 
l'utilisateur attend trop, ce phénomène se manifestera encore plus. 

La solution est d'introduire un booléen D (vrai si on effectue un mouvement). Il est déclaré en téte 
de module: Dim D as Boolean et, dans DesMouv, on insère comme 1" instruction 

exécutable : D-True et comme demiére instruction avant End Sub : D-False. 


Les autres procédures sont ainsi modifiées : 


Sub Bouton( 
If Not D Then DesMouv 
End Sub 


Sub Dessin( 
If Imv » NbMouv Then Exit Sub 
DesMouv 
Delai 2 
Dessin 
End Sub 


et linitialisation Imv=0 qui était dans Dessin passe dans essai juste avant l'appel de Dessin. 


Ceci nous foumit la dernière version Hano/$.x/sm. 
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Présentation 
Étape 1 - Entrées de nouvelles références 
Étape 2 — Entrées d'articles 
Étape 3 - Sorties d'articles 


Étape 4 — Examen du stock 


Pour aller plus loin 
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PRÉSENTATION 


Le but de la gestion des stocks est d'assurer autant que faire se peut que toute demande de sortie 

d'un article soit satisfaite. Toute gestion de stocks implique une gestion du suivi des commandes 

de renouvellement du stock. Nous allons présenter une gestion oü le suivi des commandes sera 

trés simplifié. 

Les informations importantes à connaitre pour chaque article sont, à part la référence et la 

désignation : 

— la référence et la désignation ; 

- le stock, quantité d'articles présents ; 

— le stock d'alerte : si le stock passe en dessous du stock d'alerte, on déclenche une commande 
ou une fabrication ; 

— la quantité habituellement commandée. 

Ces données résultent des données suivantes, qui ne sont connues qu'à partir de statistiques 

approximatives : 

- C: consommation moyenne par unité de temps ; 

- D: délai moyen de livraison ou de fabrication ; 

— P : périodicité souhaitée pour les commandes. 

On a les relations : 

— Stock alerte=s*C*D où s est un coefficient de sécurité ; 

- QHC (Quantité habituellement commandée)-C*P. 

La gestion des commandes est simplifiée en ce sens qu'à un instant donné, il ne peut y avoir 

qu'une commande d'un article donné, déclenchée par l'arrivée au stock d'alerte. Nous ne gérons 

pas la valeur des articles, ni les fournisseurs : nous faisons comme si un article n'avait qu'un 

fournisseur, donc nous n'envisageons pas d'arbitrage sur le prix ou le délai de livraison annoncé. 

Les opérations 

Nous envisageons les quatre opérations suivantes : 

Entrée d'une nouvelle référence : on spécifiera la référence, la désignation, le stock (ce sera le 

stock initial), le stock d'alerte, la QHC et le délai moyen de livraison. 

Entrée d'une série d'articles : la quantité livrée permettra de mettre à jour le stock ; ensuite, 

on la confrontera à la quantité commandée s'il y a une commande en cours, et cette commande 

sera considérée comme soldée ou non. 

Sortie d'articles : c'est l'opération la plus fondamentale ; si la quantité demandée est supérieure 

au stock, on signale qu'on ne fournit que ce qu'on peut et on note une demande non satisfaite ; si 

on arrive au stock d'alerte, et s'il n'y a pas déjà de commande en cours, on lance une commande. 

Examen du stock : affiche les commandes en cours et les articles qui sont pres du stock d'alerte. 

Les classeurs 

Pour se conformer au principe de séparation programme-données notre gestion fait intervenir 

deux classeurs : le classeur programme GestStock.x/sm et le classeur des données Stock. xIx.. 

Une version sans données de ce classeur est disponible en téléchargement, Stock0.x/sx. 


GestStock.xlsm contient une seule feuille, Menu, avec les quatre boutons correspondant aux 
quatre opérations que nous envisageons : 
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Gestion des stocks 


Stock.x/sx présente trois feuilles. Stock présente le stock proprement dit, avec une ligne par 
article : 


A 8 c D E F [3 H 
1 Référence Désignation Stock Stalone — Délaimoyen Qhc Concours D Cencours L 
201 Boulon do 12 1000 100 10 1000 
3182 Boulon de 20 1000 100 10 1000 
4 E1 Ecrou de10 500 50 10 500 
5 E2 Ecrou de 50 100 1 10 100 25/02016 3 
6 
LA | 

Stock | Comencours | Demnonsat | @ 


Les six premières colonnes sont évidentes. Les deux dernières sont vides s'il n'y a pas de 
commande en cours pour l'article ; s'il y a une commande en cours non soldée, on a sa date 
d'émission en G, et en H la ligne où elle est décrite dans la feuille Comencours. 


Comencours décrit les commandes : 


^ B c D E | 4 6 H 
1 Référence Désignation Qhc Qcomm  Qrest Date Délai Am 
28 Bovlon de 12 1000 1000. 9 2501/2016 2 
3 1E2 Ecrou de 60 100 200 400 25/01/2016 2 
oe Ecrou det0 500 500 0 25/01/2016 2 
5 0 [] 
6 0 0 
T 0 0 
8 0 [] 
Stock | Comencours | Demnonsat & J 


Il y a une ligne par article qui a fait l'objet d'une commande. La colonne Qcomm indique la quantité 
commandée ; elle est le plus souvent égale à la Qc, ce dont rend compte l'expression =c2 en D2, 
mais elle peut être différente. Orest est la quantité restant à livrer si la commande donne lieu à 
plusieurs livraisons. SiQrest =O, c'est que la dernière commande de l'article est soldée ; Qrest 
redeviendra non nul lorsque l'article fera l'objet d'une nouvelle commande. 

Date est la date d'émission de la commande. L'expression dans la colonne Délai calcule le temps 
écoulé depuis cette date. L'expression dans la colonne Atn fait apparaître des étoiles pour mettre 
la ligne en évidence si le délai dépasse 15 jours. L'expression en G4 est : 

=SI (ESTVIDE (A4) ;0;AUJOURDHUI()-F4) (commande non soldée) ; quand la commande est 
soldée, la cellule prend pour valeur fixe le délai final obtenu ; l'expression est rétablie lorsqu'il y a 
une nouvelle commande. 


L'expression en H2 est : -S1 (G2»15; "*****" 


PRÉSENTATION 


La feuille Demnonsat récapitule les cas où une demande n'a pas pu être satisfaite parce que la 
quantité demandée était supérieure au stock restant. Il y a une ligne pour chaque article : 


A 5 c D E F G 

1 Rélérence Désignation Manque — CumManque NbFois Moyenne 

2B Boulon de 12 100 100 1 100 

3E! Ecrou de 10 100 100 1 100 

4 

5 

6 

Stock | Comencours | Demnonsat g D 


La colonne C contient la derniére quantité manquante constatée. Les colonnes D et E permettent 
de calculer la moyenne des quantités manquantes qui figure en colonne F. Si le nombre 
d'événements s'avère important pour un article, il peut être utile d'augmenter le stock d'alerte : le 
manque moyen fournit une idée de l'augmentation à appliquer. 


1. PRÉLIMINAIRES DE NOTRE PROGRAMMATION 

Voici le début du Module! avec la routine init appelée dans toutes les opérations : 

Option Explicit 

Public chem As String, WkProg As Workbock, WkStock As Workbock, NStock 
As String 

Public ShStock As Worksheet, ShComm As Worksheet, ShDemNs As Worksheet 
Public satisf As Boolean, dernier As Boclean, Mess As String 

Public LStock As Integer, LComec As Integer, LDemns As Integer 

Public ref As String, des As String, stock As Integer, stal As Integer 
Public quant As Integer, ghc As Integer, delmoy As Integer, grest As — 
Integer 

Public nouvstk As Integer, datc As String, mq As Integer, qcom As 
Integer x: 
Public Const KRef = 1, KDes = 2, KSt = 3, KStal = 4, Kdm = 5, 

Kqhc = 6, Kdcec = 7 

Public Const Klcec = 8, Kcqhc = 3, Kcqcom = 4, Kcqrest = 5, Kcdat = 6, 
Kcdel - 7 


Public Function ouvert(nom As String) As Boolean 
Dim wkb As Workbook, tr As Boolean 
tr = False 
For Each wkb In Workbocks 
If wkb.Name - nom Then tr - True: Exit For 
Next 
ouvert - tr 
End Function 


Public Function prlv(sh As Worksheet, deb As Integer) As Integer 
Dim 11 As Integer 
For 11 = deb To 32000 
If IsEmpty(sh.Cells(1ll, 1)) Then Exit For 
Next 11 
priv = 11 
End Function 


Sub init (Y 
chem = ThisWorkbook.Path + Application. PathSeparator 
Set WkProg = ThisWorkbcok 
NStock = "Stock.xlsx" o 
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If ouvert (NStock) Then 
Set WkStock = Workbooks (NStock 


Else 
Set WkStock = Workbooks .Open(Filename:=chem + NStock 
End If 
Set SnStock = WkStock.Sheets ("Stock") 
Set ShComm = WkStock.Sheets ("Comencours") 
Set ShDemNs = WkStock.Sheets("Demnonsat") 
End Sub 


Faisons une revue succincte des variables. Le fait qu'elles soient en Public est dû à la présence de 

modules de formulaires. 

chem désigne le répertoire du programme et des données. Les variables wk... désignent les 

classeurs mis en jeu. Les variables Sn... désignent les trois feuilles du classeur Stock. 

Les booléens satisf et dernier servent à gérer les BDi avec quatre boutons « OK », « OK 

dernier », « Annuler » et « Quitter ». Mess prépare un message de MsgBox. 

Les variables L... désignent la ligne courante dans les feuilles Stock, etc. Ces variables devraient 

être Long, mais nous avons supposé que Integer suffirait. 

ref, des, etc. sont les caractéristiques d'un article ou d'une commande. ref (référence), aes 

(désignation), stock (stock), stal (stock d'alerte), quant (quantité livrée), «nc (QHC), delmoy 

(délai moyen), qrest (quantité restant à livrer), nouvstk (nouveau stock), datc (date de 

commande), mq (manque) et 4com (quantité commandée). 

Les constantes K... permettent de paramétrer les numéros de colonnes des données dans leurs 

feuilles. 

La fonction ouvert détermine si le classeur dont le nom est en argument est ouvert ou non. La 

fonction priv fournit le numéro de la 1" ligne vide de la feuille sh ; on commence à la ligne deb. 

init définit le répertoire où l'on se trouve : le programme fonctionne à condition que le classeur 

Stock soit dans le même dossier que le programme, mais ce dossier peut être quelconque. 

Application.PathSeparator permet de fonctionner aussi sur Mac ou sous Linux (\ sur PC, 

: sur Mac, / sur Linux). 

On définit les variables désignant les classeurs. L'appel de ouvert permet au classeur Stock d'être 

ouvert ou d'être fermé au départ. 

On termine en initialisant les variables désignant les feuilles Stock, Comencours et Demnonsat. 
Note 

Le classeur GestStock.x/sm téléchargé est conforme à la version 2019 (et aussi versions 2007/ 

2010/ 2013/ 2016) ; la ligne @ s'écrit : 

|NStock = "Stock.xlsx" 

pour tenir compte de l'extension des fichiers en version 2007 et ultérieure. En version antérieure, 

l'extension est .x/s méme pour un classeur prenant en charge les macros. Si vous vouliez une 

gestion valable pour toute version, sauvegardez vos deux classeurs en .x/s (ils fonctionnent en 

mode compatible dans les versions « modernes ») et, pour la ligne ©, vous pourriez écrire : 


If Val(Application.Version) >= 12 Then NStock = "Stock.xlsx" 
Else NStock = "Stock.xls" 


ÉTAPE 1 — ENTRÉES DE NOUVELLES RÉFÉRENCES 


2. LA ROUTINE NOUVREF 


Sub NouvRef () 


init 

dernier = False 

While Not dernier 
satisf = False 


UF NouvRef.Show 
If satisf Then 
LStock = priv(ShStock, 2) 
ShStock.Cells(LStock, KRef).Value = ref 
ShStock.Cells(LStock, KDes).Value = des 
ShStock.Cells(LStock, KSt).Value - stock 
ShStock.Cells(LStock, KStal).Value - stal 
ShStock.Cells(LStock, Kdm).Value - delmoy 
ShStock.Cells(LStock, Kghc).Value = qhe 
End If 
Wend 
WkStock.Save 
End Sub 


Après avoir appelé init, la routine Ncuvaet implante la boucle permettant d'entrer une nouvelle 
référence tant que dernier est false, c'est-à-dire tant qu'on n'a pas diqué sur (OK dernier. La 
boucle présente le formulaire UF_Nouvref. Si satisf est vrai, donc si on a cliqué sur OK et non 
Annuler, on implante les données dans la feuille Stock, sur sa premiere ligne vide, trouvée par la 
fonction priv. 


Stock Alerte. 


Qhc 


Dé moyen 


UM E 3 E— m 


Les zones d'entrée texte ont pour noms tbref, tbdes, tbstock, tbsta, tbQhc et tbDelMoy. 
Les boutons ont pour noms B. Verif,B Verif Des,B Ok, B CkDern,B Annuler eta Quit. 
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Voici le module de gestion du formulaire : 


Private Sub B Annuler Click() " d 
= É UF_NouvRef code 


satisf - False 
dernier - False 
Unload Me 

End Sub 


Sub recupdon () 
ref = tbref.Text 
des = thdes.Text 
stock = CInt(tbstock.Text) 
stal = CInt(tbsta.Text) 
qhe = CInt(TBQhc.Text) 
delmoy = CInt(TBDelMoy.Text) 
End Sub 


Private Sub B Ok Click() 


recupdon 
satisf - True 
dernier = False 
Unload Me 

End Sub 


Private Sub B OkDern Click() 


recupdon 
satisf - True 
dernier - True 
Unload Me 

End Sub 


Private Sub B Quit Click( 


satisf - False 
dernier - True 
Unload Me 

End Sub 


Private Sub B Verif Click() 
Dim 11 As Integer 
Dim tr As Boolean 
tr - False 
For 11 = 2 To 32000 
If IsEmpty(ShStock.Cells(ll, KRef)) Then Exit For 
If ShStock.Cells(21, KRef).Value = tbref.Text Then 
tr - True 
Exit For 
End If 
Next 11 
If tr Then MsgBox "Cette référence existe déjà" 
End Sub 


Private Sub B Verif Des Click() 
Dim ll As Integer 
Dim tr As Boolean 


tr = False 
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For 11 = 2 To 32000 
If IsEmpty (ShStock.Cells(1l, KRef)) Then Exit For 
If ShStock.Cells(11, KDes).Value = tbdes.Text Then 
tr = True 
Exit For 
End If 
Next 11 
If tr Then MsgBox "Cette désignation existe déja" 
End Sub 


Les routines de clic des 4 boutons de validation gèrent les booléens satisf et dernier comme 

on l'a déjà vu dans l'exemple de la gestion d'une association. Les B_ ox appellent recupdon pour 

récupérer les données entrées dans les variables qui permettront au module appelant de les placer 

sur la feuille Stock. 

Les routines des deux boutons B_Verif sont identiques. Elles cherchent si la référence (resp. la 

désignation) est déjà présente sur la feuille Stock, auquel cas elles affichent un message. 
Exercice 

Y aurait-il moyen de se passer de ces deux boutons ? 

Réponse 

Oui. On implante la routine de vérification comme réponse à l'événement Exit de la zone d'entrée 

texte concernée. Sub B Verif Click devient Sub tbref Exit et Sub B Verif Des 

Click devient Sub thdes Exit. 
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1. LA ROUTINE ENTRÉES ET SES ANNEXES 
La procédure Entrees appelle la BDi UF Entr avec la même structure que NouvRef, orchestrée 
par les deux booléens dernier et satisf. Elle utilise PrenDon pour mettre à jour la ligne de 
l'article dans la feuille Stock et eComec pour gérer la commande en cours de l’article sil y en a 
une. 


Sub PrenDon () 
ref = ShStock.Cells(LStock, KRef) .Value 
des = ShStock.Cells(LStock, KDes) .Value 
Stock = ShStock.Cells(LStock, KSt) .Value 
stal = ShStock.Cells(LStock, KStal) .Value 
End Sub 


Sub eComec () 


datc = CStr(ShStock.Cells(LStock, Kdcec) .Value) 
If date <> "" Then 
LComec = ShStock.Cells(LStock, Klcec) .Value 


qrest = ShComm.Cells(LComec, Keqrest) .Value 
If qrest > 0 Then 

grest = qrest - quant 

If qrest <= 0 Then 


hComm.Cells(LComec, Kcgrest).Value = 0 
SnComm.Cells(LComec, Kcdel).FormulaLocal = Rs 
CStr(ShComm.Cells(LComec, Kcdel).Value) o 

SnStock.Cells(LStock, Kdcec).Value = "" 
SnStock.Cells(LStock, Klcec).Value = "" 

Else 
SnComm.Cells(LComec, Kcqrest).Value = qrest 
MsgBox "Reste à livrer " + CStr(grest) + vbCr + ref + " " + des 

End If 

End If 
End If 


End Sub 


Sub Entrees ( 
init 
dernier = False 
While Not dernier 
satisf = False 
UF Entr.Show 
If satisf Then 


PrenDon 

nouvstk = stock + quant 

ShStock.Cells(LStock, KSt).Value = nouvstk 

Mess = "Nouveau stock " + CStr(nouvstk) + " pour" + vbCr + ref + — 
"o" des 


MsgBox Mess 
eComec 
End If 
Wend 
WkStock.Save 
End Sub 
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eComec se base sur la présence d'une date dans la colonne G pour savoir qu'il y a une commande 
en cours pour l'article concerné. À ce moment on calcule la quantité restant à livrer ; si elle est 
nulle, on solde la commande (en particulier, on note dans la feuille Stock qu'il n'y a plus de 
commande en cours en vidant la date et la ligne) ; si elle est non nulle, on la met à jour dans la 
feuille Comencours et on affiche un message. 

Linstruction en 0 fait que le délai affiché pour une commande soldée sera la valeur maximum 
atteinte tant que la commande n'était pas soldée : on remplace l'expression par la dernière valeur 
atteinte par l'expression, donc elle ne variera plus. 


2. LABDI UF ENTR 


Entrées dans le stock — == 
Référence 


Catégorie 


Le mode d'emploi est le suivant : pour déterminer l'article concerné, soit l'utilisateur fournit la 
référence, soit il choisit la désignation dans la ComboBox associée. Pour que la liste déroulante soit 
plus courte, dans cette hypothèse, l'utilisateur doit indiquer la catégorie de produit concemée (en 
fait, n'importe quelle sous-chaine de la désignation : on suppose par exemple que tous les boulons 
auront une désignation de la forme « Boulon bla bla bla » et il suffira de fournir "Boulon" ; cela 
joue bien le rôle de catégorie). Le stock actuel s'affiche et l'utilisateur indique la quantité arrivée. 


Voici le module de code associé à la BDi : 
Private Sub B Annuler Click( 


satisf = False 
dernier = False 
Unioad Me 

End Sub 


Private Sub B Ok Click( 


If TBQuant.Text - "" Then 
MsgBox "Il faut la quantité" 
Exit Sub 

End If 

If CBDes.Text = "" Then 


MsgBox "Il faut la désignation" 
Exit Sub 
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End If 
quant = CInt(TBQuant 
satisf = True 
dernier = False 
Unload Me 

End Sub 


Private Sub B OkDern Click() 

If rBQuant . Text " Then 
MsgBox "Il faut la quantité" 
Exit Sub 

End If 

If CBDes.Text = "" Then 
MsgBox "Il faut la désignation" 
Exit Sub 

End If 

quant = CInt(TBQuant 

satisf = True 

dernier = True 

Unload Me 

End Sub 


Private Sub B Quit Click() 


satisf - False 
dernier - True 
Unload Me 

End Sub 


Private Sub CBDes Exit(ByVal Cancel As MSForms.ReturnBoolean 
ChercheDes (CBDes.Text) 
tbref.Text = ShStock.Cells(LStock, KRef).Value 
TBStact.Text = CStr(ShStock.Celis(LStock, KSt).Value) 

End Sub 


Private Sub TBCat Exit (ByVal Cancel As MSForms.ReturnBoolean 
Dim cat As String, 11 As Integer, ds As String 
If TBCat.Text = "" Then Exit Sub 
cat - TBCat.Text 
CBDes.Clear 
For 11 = 2 To 32000 
If IsEmpty(ShStock.Cells(11, KRef)) Then Exit Sub 
ds = ShStock.Cells(11, KDes).Value 
If InStr(UCase(ds), UCase(cat)) > 0 Then CBDes.AdcItem ds 
Next 11 
End Sub 


Private Sub tbref Exit (ByVal Cancel As MSForms.ReturnBoolean) 
If tbref.Text = "" Then Exit Sub 
ChercheRef (tbref.Text) 
If LStock - 0 Then 


Cancel - True 
Else 
CBDes.Text = ShStock.Cells(LStock, KDes).Value 


TBStact.Text = CStr(ShStock.Cells(LStock, KSt).Value) 


Eyrolles/Tsoft — VBA pour Excel versions 20 


ÉTAPE 2 — ENTRÉES D'ARTICLES 


End If 
End Sub 


tbref Exit appelle ChercheRef pour trouver l'article par la ligne LStock où il est dans la 
feuille Stock. S'il n'est pas trouvé, il y a un message et on ne quitte pas la zone d'entrée tbref 
(en faisant Cance1-True). S'il est trouvé, on remplit les zones Désignation et Stockactuel. 


TBCaL Exit constitue la liste déroulante CBDes avec les désignations qui contiennent la caté- 
gorie spécifiée. Les UCase en 0 permettent de s'affranchir d'un probléme de majuscules et 
minuscules. 


CBDes Exit appelle ChercheDes pour trouver l'article correspondant à la désignation choisie 
dans la liste déroulante. La recherche réussit toujours puisque la liste ne propose que des 
désignations trouvées sur la feuille Stock. Si la liste est vide, c'est que la catégorie indiquée n'est 
pas représentée. 


Les routines ChercheRef et ChercheDes sont dans Module 1 car elles sont employées aussi 
par la BDi de l'étape 3. Les voici : 


Public Sub ChercneDes(ds As String) 
' On est sür de trouver la désignation 
For LStock - 2 To 32000 
If IsEmpry(SnStock.Cells(LStock, KRef)) Then Exit For 
If ShStock.Cells(LStock, KDes).Value = ds Then Exit For 
Next LStock 
End Sub 


Public Sub ChercheRef(rc As String) 

Dim tr As Bcolean 

tr - False 

For LStock = 2 To 32000 
If IsEmpty(ShStock.Cells(LStock, KRef)) Then Exit For 
If ShStock.Cells(LStock, KRef).Value = rc Then tr 

Next LStock 

If Not tr Then 


True: Exit For 


LStock = 0 
MsgBox "Référence " + rc + " non trouvée" 
End If 
End Sub 


Dans les deux cas, la réponse est le n° de ligne LStock de l'article dans la feuille Stock Pour la 
référence, si elle n'est pas trouvée, on affiche un message et on fait LStcck=0. 
Pour la désignation, on est sûr de la trouver. En fait, s'il y a un probléme, c'est que la liste 
déroulante est vide car on n’a aucune désignation qui contient cat. 
Exercice 
Afficher un message d'erreur dans ce cas. 
Solution 
Après le next 1: dans TECar Exit: 
| If CBDes.ListCount=0 Then MsgBox "Catégorie non trouvée" 
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1. LA ROUTINE SORTIES ET SES ANNEXES 
La routine Sorties a la même structure de boucle d'appels de la BDi UF_ Sort: orchestrée par 
les booléens satist et dernier. Pour chaque article, la plupart du temps, elle calcule le 
nouveau stock nouvstk et l'inscrit dans Stock. Mais si elle décèle que la quantité demandée 
excède le stock, elle appelle DemNs pour traiter la demande non satisfaite et si elle décèle que le 
stock d’alerte est atteint, elle doit préparer une commande et gérer la commande en cours dans 
sComec. Bien sûr, ces actions sont accompagnées des messages convenables. 
Sub sComec() 

date = CStr(ShStock.Celis(LStock, Kdcec) .Value) 


If date <> "" Then 
MsgBox "Il y a une commande de" + vbCr + ref + " " + des + vbCr + 
"depuis le " + datc a 
Else 
MsgBox "Il faut émettre une commande de" + vbCr + ref + " " + des 


qhc = ShStock.Cells(LStock, Kghc).Value 
LComec - prlv(ShComm, 2) 


ShStock.Cells(LStock, Kdcec).FormulaLocal = CStr (Date) o 

ShStock.Cells(LStock, Klcec).Value - LComec 

qcom Int (InputBox ("Quantité de " + ref + " " + des + vbCr + "à 
commander ", , CStr(qhc))) e 


ShComm.Cells(LComec, KRef).Value = ref 

ShComm.Cells (LCom KDes) . Value = des 

ShComm.Cells (LComec, Keghc) .Value = che 

ShComm.Cells (LComec, Kcqcom) .Value = qcom 
(I 


ShComm.Cells(LComec, Kcqgrest).Value = qcom e 
ShComm.Cells (LComec, Kcdat).FormulaLccal = CStr(Date 
ShComm.Cells(LComec, Kcdel).FormulaLocal = "-SI(ESTVIDE(A" + — o 
CStr(LComec) + ");0;AUJOURDHUI()-F" + CStr(LComec) + ")" 
End If 
End Sub 


Sub DemNs () 
For LDemns = 2 To 1000 
If IsEmpty(ShDemNs.Cells(LDemns, 1)) Then Exit For 
If ShDemNs.Cells(LDemns, 1).Value = ref Then Exit For 
Next LDemns 
ShDemNs.Cells(LDemns, 1).Value = ref 
ShDemNs.C s(LDemns, 2).Value = des 
ShDemNs.Cells(LDemns, 3).Value = mq 
ShDemNs.Cells(LDemns, 4).Value = ShDemNs.Celis(LDemns, 4).Value + mq 
ShDemNs.Cells(LDemns, 5).Value = ShDemNs.Cells(LDemns, 5).Value + 1 
End Sub 


Sub Sorties ( 
init 
dernier = False 
While Not dernier 
satisf = False 
UF_Sorti.Show 
If satisf Then 
PrenDon 
nouvstk = stock - quant 
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If nouvstk < 0 Then 
MsgBox "Je ne peux fournir que " + CStr(stock) + vbCr + ref + = 
rn deg 
mq = -nouvstk 
nouvstk = 0 
DemNs 
End If 
ShStock.Cells(LStock, KSt).Value - nouvstk 
Mess = "Nouveau stock " + CStr(nouvstk) + " pour" + vbCr + ref + " 
no" + des 
If nouvstk <= stal Then 
MsgBox Mess + vbCr + "(Stock d'alerte atteint)" 
sComec 
Else 
MsgBox Mess 
End If 
End If 
Wend 
WkStock.Save 
End Sub 


DemNs parcourt la feuille Demnonsat pour trouver la ligne de l'article concemé s'il y a déjà eu des 
manques pour cet article, ou la première ligne vide si c'est la 17 fois. On y inscrit les données, 
notamment la quantité manquante mq, le nombre de fois et le cumul des manques d'où la 
moyenne est déduite automatiquement par les expressions arithmétiques préexistantes. 

sComec est appelée si le stock d'alerte est atteint ou dépassé. On décèle s'il y a déjà une 
commande en cours par la présence de la date. Si oui, on le signale, sinon on indique qu'il faut 
passer une commande et on crée cette commande sur la 1'€ ligne vide de Comencours. 

En © on signale que l'article fait l'objet d'une commande en cours. 

On demande par InputBox la quantité à commander (avec QHC comme valeur par défaut) (8). 
En ©, on fixe la 17? valeur de la quantité restant à livrer égale à la quantité commandée. 

En @, on (re)construit l'expression de calcul du délai. 


2. LA BDI UF SORTI 


| Sorties du stock 
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La BDi est quasiment identique à Ux Entr : seul change le libellé Quant : cé qui devient 
Quantité demandée. 

Le mode d'emploi pour la détermination de l'article en cours est exactement le même que pour 
l'entrée. Le module de code correspondant est exactement identique à celui de UF_Entr, donc 
nous ne le citons ni ne le commentons. 

Il fait appel aux routines ChercheRef et ChercheDes déjà vues et expliquées implantées dans 
Module 1. 
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La fonction d'examen du stock parcourt la feuille Stock et signale chaque article dont le stock est 
inférieur ou égal au stock d'alerte ou inférieur ou égal au stock d'alerte +10 96. Pour ceux en 
dessous du stock d'alerte, elle signale s'il y a une commande en cours. 


Voici la procédure Exam : 


Sub Exam() 
init 
Open chem + "alerte.htm" For Output As £1 
Print #1, "<html><body><pre>" + vbCr; 
Print #1, "<h2>Alertes stocks au " + CStr(Date) + "</h2>" + vbCr; 


For LStock = 2 To 32000 
If IsEmpty (SnStock.Cells(LStock, KRef)) Then Exit For 


PrenDon 
If stock <= (1.1 * stal) Then 
If stock <= stal Then 
Mess = "Stock d'alerte atteint pour " + ref + " " + des 
date = CStr(ShStock.Cells(LStock, Kdcec) .Value) 
If datc <> "" Then Mess = Mess + vbCrLf + "Commande le " + datc 
Else 
Mess = "Stock d'alerte bientôt atteint pour " + ref + " " + des 
End If 
Print #1, Mess + vbCr; 
End If 
Next LStock 
Print #1, "</pre></body></html>" + vbCr; 
Close #1 


WkProg.FollcwHyperlink Address:=chem + "alerte.htm", NewWindow:=True 
End Sub 


La procédure crée un fichier a/erte.htm, ce qui permet de l'afficher par le navigateur Internet par 

a méthode FollowHyperlink (dernière ligne de la procédure). Voici l'affichage produit avec les 
données du classeur Stockb.x/sx téléchargé (il faut le renommer temporairement Stock.x/sx pour 

faire I’ 


Alertes stocks au 25/01/2016 


te bientôt at 
t pe 
6 
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POUR ALLER PLUS LOIN 


Une première piste que nous n'avons pas du tout abordée serait d'attribuer un prix aux articles et 
donc de gérer une valorisation du stock. Cela permettrait de se relier à la comptabilité. 


Une deuxième possibilité est d'installer un suivi plus complet des commandes avec : 


1. Possibilité d'avoir plusieurs commandes en cours pour un article. 

2. Une fonctionnalité de passage d'une commande sans attendre le déclenchement par stock 
d'alerte. 

3. Gestion des fournisseurs avec plusieurs fournisseurs possibles pour un article et arbitrage entre 
les prix et les délais de livraison annoncés. 
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Sudoku 


17 


Étape 1 — Génération de grilles 
Étape 2 — Résolution sans ambiguïté 


Étape 3 — Résolution avec ambiguités 
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ÉTAPE 1 — GÉNÉRATION DE GRILLES 


Le Sudoku a un succès planétaire. Rappelons qu'il s'agit de compléter une grille 9 x 9 de 81 cases 
avec des chiffres pris dans la suite 123... 9. Nous appellerons « grille problème » la grille proposée 
qui contient déjà quelques chiffres et, « grille solution », la grille complète. Tout le problème vient 
des contraintes auxquelles toute grille solution doit obéir : chacun des groupes, lignes, colonnes ou 
régions (les carrés 3 x 3) doit contenir chaque chiffre une fois et une seule, donc étre rempli avec 
une permutation de la série 123... 9. 

Comme prélude à la suite où nous vous aiderons à compléter les grilles que vous trouvez dans 
diverses revues, nous commengons par un classeur Excel qui permet de construire des grilles. 
Nous appelons (cette dénomination nous est propre, et non officielle) « grille canonique » une 
grille solution où la 17 ligne est 123456789 (la permutation standard). À partir de cette grille, on 
peut construire des grilles solutions en substituant aux chiffres leurs correspondants dans une 
autre permutation de 12... 9. On construit une grille probléme à partir de la grille solution en 
vidant des cases ; la résolution est d'autant plus difficile qu'il reste peu de chiffres révélés. 
Maintenant, à partir d'une grille canonique, on peut construire plus de 360 000 (il y a factorielle 9 
= 1x 2x 3... x 9 permutations) grilles solution, ce qui vous permettrait de tenir la rubrique Sudoku 
dans un quotidien pendant 1 000 ans ! En fait plus, car vous pouvez faire des transformations : 
transposition de la matrice, symétries, rotations de 90°, échanges de lignes et colonnes. En effet, 
Si vous échangez deux lignes ou colonnes de facon à ce que les régions soient conservées, la grille 
reste solution ; pour cela, il faut se borner aux échanges 1-2, 1-3, 2-3, 4-5, 4-6, 5-6, 7-8, 7-9 

et 8-9. 

Dans le classeur SudokGener.x/sm, nous proposons une grille canonique que nous avons 
construite trop simple pour qu'elle corresponde aux grilles qu'on trouve dans les revues : ona 
répété des blocs de trois chiffres trop reconnaissables. 


A x t M N o P aja sit U,V,W|X|VY 
Ps Grille problème canonique 
» 

20 

E 

m 

u 

s 

x 

ar 

E 

e 


Vous voyez que pour la grille probléme associée, les chiffres gardés obéissent à une forme 
géométrique reconnaissable ; c'est ce qui est fait dans les revues. 


Remarque juridique 


À ce propos, notez que si vous voulez publier des grilles dans des revues ou sur Internet, vous ne 
devez en aucun cas plagier des grilles solutions (m&me transformées par les permutations : elles 
peuvent étre reconnues). De méme, vous ne devez pas copier les formes caractéristiques des 
grilles problèmes. Au contraire, nous vous donnons entièrement le droit d'utiliser et de 
publier les grilles que le classeur SudokGener.x/sm vous permettra de générer. 


En haut de la feuille du classeur, les emplacements sont préts à accueillir les grilles générées. Les 
boutons Vider] et Vide solution] permettent de remettre ces grilles à zéro. Reprise permet de 
reprendre aprés permutation et en cours d'une série de transformations. 

Dans la zone des lignes 31 à 43 de la feuille, on trouvera la grille solution obtenue par application 
d'une permutation de 12... 9 et la grille problème associée. Dans la zone lignes 45 à 59 figure la 
grille préte à subir les transformations dont nous avons parlé et la grille probléme associée. 
Lorsqu'on effectue une permutation, les grilles substituées sont automatiquement copiées dans la 
zone de transformation. Dans les lignes 64 à 75, on pourra conserver les grilles obtenues à une 
étape intermédiaire. 
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^ jsjcjojejrjsju]t]3] œ | t M N e E; Q|R,S|T,U V|W. X Y 
Substitude 


123456749 1 2 3 4 5 6 7 8 9 


Substituer 


Complément 


eurenecese 


Copier 


Eee  SSeryeaee ney, 


a A B|C,D|E|F GJH|IJ|J 
4s Transtorno 


- 


z 
o 


QjR|S T,UJV wey 


47 y à 3» 4 95 97 9» Transposer Anti-Transp 


Sym axe Horiz Sym axe Vert 


Rot. Gauche Rot. Droite 


Sym Centre Compl sur place 


Effectue une permutation en demandant la chaine qui remplace "123456789". Le 
résultat va dans la grille « substituée » mais aussi dans la « transformée ». 

(Complément Remplace "123456789" par "987654321". 

Subst Aleat Effectue une permutation aléatoire. 

Copier} Copie la grille « transformée » en haut de la feuille. Tant qu'on n'a pas effectué une 
transformation c'est la grille « substituée » qui est copiée. 

Conserver Copie la « substituée » ou un résultat intermédiaire d'une série de transformations 
dans la zone lignes 65 à 75. 


Il va sans dire que toute opération est accompagnée de la création de la grille problème associée 
suivant le motif de la zone Q20:Y28 et que cette grille problème est copiée elle aussi. 


ransposer| Transposition de la matrice (symétrie par rapport a la diagonale \). 
Symétrie par rapport à la diagonale /. 


Echanger lignes Échange deux lignes. Demande le couple, par exemple "12" ; si le couple ne 
convient pas, c'est-à-dire ne conserve pas les régions, il y a un message d'erreur. 


Echanger colonnes; Même chose pour deux colonnes. 


Sym axe Horiz| Sym axe Verl Symétrie par rapport à l'axe horizontal cu vertical de la grille. 


Rot. Gauche Tourne la grille d'un quart de tour à gauche, respectivement à droite. 
Symétrie par rapport au centre de la grille. 


Compl sur place Remplace dans la grille « transformée » chaque chiffre x par 10-x. C'est différent 
de Complément qui n'agit que sur la grille canonique ; là, on agit après n'importe quelle 
permutation et série de transformations. 


DECLARATIONS ET ROUTINES DE SERVICE 

Dim GrilleCanSol(9, 9) As Integer, GrilleCanPb(9, 9) As Integer 
Dim GrilleSubst(9, 9) As Integer, GrilleSubstPb(9, 9) As Integer 
Dim GrilleTransf(9, 9) As Integer, GrilleTransfPb(9, 9) As Integer 
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Dim strTransf As String, GrilleInterm(9, 9) As Integer 
Dim i As Integer, j As Integer, k As Integer 

Dim ie As Integer, je As Integer, strEch As String 
Dim strSubst As String, intSubst(9) As Integer 


Const DLSol = 3, DCSol = 1, DCEb = 16, LTra 


" nsf = 45, CTransf = 11 
Const DLCan - 19, DLSubst - 33, DLTransf - 47 


, DLConserv - 65 


Sub Init() 
RecupGrille GrilleCanSol, DLCan, DCSol 
RecupGrille GrilleCanPb, DLCan, DCPb 
strTransf = "" 

End Sub 


Sub RecupGrille(Grille() As Integer, DL As Integer, DC As Integer 
For 3 = 1 To 9 
For j = 1 To 9 
S = Cells(DL + i, DC + j).Value 


If s = "" Then 
Grille(i, j) = 0 
Else 
Grille(i, j) = CInt(s) 
End If 
Next j 
Next i 
End Sub 


Sub AfficheGrille(Grille() As Integer, DL As Integer, DC As Integer) 
For d ed To 9 
For j = 1 To 9 
v = Grille(i, j) 
If v = 0 Then 
Celis (DL + i, DC + j).Value = "" 
Else 
Cells (DL + i, DC + j).Value = CStr(v) 
End If 
Next j 
Next i 
End Sub 


Sub VideGrilles() 
Range ("B4:J12") .Value = "" 
Range ("04:Y12") .Value = "" 
End Sub 


Sub VideSol () 
Range ("Q4:Y12") .Value = "" 
End Sub 


On a d'abord les tableaux (9,9) pour la grille solution et la grille problème canonique (qui sera 
invariable), substituée et transformée. Les variables i, j et k orchestrent les parcours des tableaux. 
Les autres variables seront vues à mesure de leur utilisation. 
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Les constantes servent à positionner les grilles sur la feuille. On donne les coordonnées à gauche 
du coin supérieur gauche de la grille : l'élément (i,j) ira sur la feuille en celis(DL+i, DC+i). 
RecupGrille récupère, dans la variable grille argument, les données de cette grille présentes sur 
la feuille. Les arguments DL... et DC... définissent la position sur la feuille des données à récupérer. 
AfficheGrille effectue le transfert inverse. Init sera appelée par les routines de substitution 
pour récupérer la grille canonique et la grille problème associée. 


2. ROUTINES DE SUBSTITUTION 


Ces routines vont construire la grille substituée en remplaçant les chiffres de la grille canonique 
par ceux d'une permutation de 12...9. Cette permutation est rangée dans la chaîne strSubst. 
Sub Subst () 

Init 

strSubst = InputBox("Chaine de substitution", "Substitution") 

For i = 1 To 9 

intSubst(i) = CInt(Mid(strSubst, i, 1)) 

Next i 

EffectueSubst 
End Sub 


Sub Complémenter ( 
Init 
strSubst = "987654321" 
For i = T TON 
intSubst (i) = CInt(Mid(strSubst, i, 1)) 
Nexr i 
EffectueSubst 
End Sub 


Sub SubstAleat () 
Init 
Randomize 
intSubst(1) = Int(9 * Rnd + 1) 
k = intSubst (1) 
strSubst = "" 
Foxes = e se 
k= Int(9 * Rna + 1) 
While InStr(strSubst, CStr(k)) <> 0 
k = Int(9 * Rnd + 1) 
Wend 
intSubst(i) = k 
strSubst - strSubst & k 
Next i 
EffectueSubst 
End Sub 


Sub EffectueSubst() 


For i = 1 To 9 
For j = 1 To 9 
GrilleSubst(i, j) - intSubst(GrilleCanSol(i, j)) 
GrilleTransf(i, j) = GrilleSubst(i, j) 
Next j 
Next i 
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CreeGrillePb GrilleSubst, GrilleSubstPb 

CreeGrillePb GrilleTransf, GrilleTransfPb 

AfficheGrille GrilleSubst, DLSubst, DCSol 

AfficheGrille GrilleSubstPb, DLSubst, DCPb 

AfficheGrille GrilleTransf, DLTransf, DCSol 

AfficheGrille GrilleTransfPb, DLTransf, DCPb 
End Sub 


Sub CreeGrillePb(Grille() As Integer, GrillePb() As Integer) 
For i = 1 To 9 
roug er tog 
If GrilleCanPb(i, j) <> 0 Then 


GrillePb(i, j) = Grille(i, j) 
Else 
GrillePb(i, j) = 0 
End If 
Next j 
Next i 
End Sub 


EffectueSubst opère effectivement la substitution conformément à la chaîne strSubst et au 
tableau des 9 chiffres correspondants intsubst. Elle crée à la fois la grille substituée et sa copie, 
la grille qui recevra les transformations. Elle se termine en créant les grilles probléme associées et 
en copiant toutes ces grilles dans la feuille. Les routines Subst... obtiennent la permutation à 
effectuer de trois manières différentes. 

Subst demande à l'utilisateur de taper la permutation qu'il veut. Complémenter adopte d'office 
"987654321". SubstAleat crée la chaine en prenant des nombres au hasard compris entre 1 et 9 
(voir partie Apprentissage, page 107) et en assurant qu'un nombre ne soit pris qu'une fois. 
CreeGrillePb crée dans son 2* argument la grille probléme associée à la grille qui constitue son 
1*' argument. 


3. ROUTINES DE TRANSFORMATION 
Sub CopGrille(GrilleDep() As Integer, GrilleArr() As integer 
For i = 1 To 9 
OMA aed Oo 1S) 
GrilleArr(i, j) = GrilleDep(i, j) 
Next j 
Next i 
End Sub 


Sub Copie() 
AfficheGrille GrilleTransf, DLSol, DCSol 
AfficheGrille GrilleTransfPb, DLSol, DCPb 
End Sub 


Sub Conserv () 
Cells(DLConserv - 1, CTransf) .Value = strTransf 
AfficheGrille GrilleTransf, DLConserv, DCSol 
AfficheGrille GriileTransfPb, DLConserv, DCPb 
End Sub 
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Sub FinTransf() 
CreeGrillePb GrilleTransf, GrilleTransfPb 
AfficheGrille GrilleTransf, DLTransf, DCSol 
AfficheGrille GrilleTransfPb, DLTransf, DCEb 
Cells(LTransf, CTransf).Value = strTransf 
End Sub 


Sub Transposer() 


strTransf = strTransf + " Transp" 
CopGrille GrilleTransf, GrilleInterm 
For i = 1 To 9 
For j = Toc 
GrilleTransf(i, j) = GrilleInterm(j, i) 
Next j 
Next i 
FinTransf 
End Sub 


Sub AntiTransp() 


strTransf = strTransf + " Transp" 
CopGrille GrilleTransf, GrilleInterm 
For i = 1 To 9 
For j = 1 To 9 
GrilleTransf(i, j) - GrilleInterm(10 - j, 10 - i) 
Next j 
Next i 
FinTransf 
End Sub 
Function VerEchange() As Boolean 
Const EchBon - "12 13 23 45 46 56 78 79 89" 
strEch - InputBox("Plus petite en ler", "Echange lig ou col") 


If InStr(EchBon, strEch) » 0 Then 
ie Left (strEch, 1) 
je Right (strEch, 1) 
VerEchange = True 
Else 
MsgBox "Mauvais couple pour échange." 


(l 


VerEchange = False 
End If 
End Function 


Sub EchLignes () 
If Not VerEchange Then Exit Sub 
strTransf = strlransf + " EchLignes" + strEch 
CopGrille GrilleTransf, GrilleInterm 
For j = 1 To 9 
GrilleTransf (ie, j) 
GrilleTransf(je, j) 
Next j 
FinTransf 
End Sub 


GrilleInterm(je, j) 


GrilleInterm(ie, j) 
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Sub EchColonnes () 
If Not VerEchange Then Exit Sub 
strTransf = strTransf + " EchColonnes" + strEch 
CopGrille GrilleTransf, Grilleinterm 


For i= 1 TO 9 
GrilleTransf(i, ie) = GrilleInterm(i, je) 
GrilleTransf(i, je) = GrilleInterm(i, ie) 
Next i 


FinTransf 
End Sub 


Sub SymHoriz() 
strTransf = strTransf + " EchColonnes" + strEch 
CopGrille GrilleTransf, GrilleInterm 
For i = 1 To 9 
For j = 1 To 9 
GrilleTransf(i, j) = GrilleInterm(10 - i, j) 
Next j 
Next i 
FinTransf 
End Sub 


Sub SymVert () 
strTransf = strTransf + " EchColonnes" + strEch 
CopGrille GrilleTransf, GrilleInterm 
For A = foo 
For j = 1 To 9 
GrilleTransf(i, j) = GrilleInterm(i, 10 - j) 
Next j 
Next i 
FinTransf 
End Sub 


Sub SymCentre( 
strTransf = strTransf + " EchColonnes" + strEch 
CopGrille GrilleTransf, Grilleinterm 
For ie 1 To 9 
For j = 1 To 9 
GrilleTransf(i, j) = GrilleInterm(10 - i, 10 - j) 
Next j 
Next i 
FinTransf 
End Sub 


Sub CompiSurPlace( 


strTransf = strTransf + " Comp" 
Kor i = 1 To 9 
For j = 1 To 9 
GrilleTransf(i, j) = 10 - GrilleTransf(i, j) 
Next j 
Next i 
FinTransf 
End Sub 
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Sub RotGh () 
strTransf = strTransf + " EchColonnes" + strEch 
CopGrille GrilleTransf, GrilleInterm 
For i = 1 To 9 
For j = 1 To 9 
GrilleTransf(i, j) = GrilleInterm(j, 10 - i) 
Next j 
Next i 
FinTransf 
End Sub 


Sub RotDr() 
strTransf = strTransf + " EchColonnes" + strEch 
CopGrille GrilleTransf, GrilleInterm 


For ce T0709 
For j = 1 To 9 
GrilleTransf(i, j) = GrilleInterm(10 - j, i) 
Next j 
Next i 
FinTransf 
End Sub 


Sub Reprise() 
RecupGrille GrilleCanSol, DLCan, DCSol 
RecupGrille GrilleCanPh, DLCan, DCPb 
RecupGrille GrilleSubst, DLSubst, DCSol 
RecupGrille GrilleSubstPb, DLSubst, DCPb 
RecupGrille GrilleTransf, DLTransf, DCSol 
RecupGrille GrilleTransfPb, DLTransf, DCPb 
StrTransf - CStr(Cells(LTransf, CTransf)) 

End Sub 


Routines auxiliaires 
CopGrille : copie un tableau grille dans un autre. Elle sera souvent utilisée pour copier la grille 
transformée dans Gr illeinterm() de sorte que les opérations soient de la forme 
GrilleTransf € Transforméc (GrilleInterm) lorsque la transformation ne peut pas 
opérer sur place. 
ProdMat : produit de deux matrices : Res € Gauche X Droite. 
Copie : copie la grille transformée et la grille probléme associée en haut de la feuille. 
Conserv : les copie en bas de la feuille pour garder une transformée intermédiaire si l'utilisateur 
le désire. 
: épilogue de la transformation. On affiche la chaine st rTransf qui contient une 
suite de petits mots qui rappellent les transformations effectuées. 
Grilletranst(). Il faut créer GrilleTransfPb() et afficher les grilles sur la feuille. En outre 
on gère la variable st rTranst qui permet d'afficher la suite des transformations effectuées. 


FinTran 


Reprise : permet de s'interrompre après substitution ou au cours d'une série de transformations. 
Dans ce cas, il faut sauvegarder le classeur. Lorsqu'on le recharge, l'appui sur le bouton Reprisd 
récupére les variables grilles dans leur état lors de l'interruption. 


La routine est en fin de listing car elle est utilisée en cours d'une suite de transformations. 
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Transformations proprement dites 
Chaque routine de transformation concatène à strlranst un petit mot qui définit la 
transformation effectuée. Ensuite, on copie Gri? leTransf dans GrilleInterm, sauf 
ComplSurPlace qui agit directement sur GrilleTransf. 


On effectue la transformation qui revient à prendre chaque élément dans Grillelnterm et à le 
mettre dans GrilleTransf à la nouvelle place qui lui convient, compte tenu de la transformation 
concernée. Ces opérations sont suffisamment évidentes pour que nous ne les détaillions pas. 

Les rotations s'entendent comme rotations d'un quart de tour à gauche ou à droite. 

Les échanges de lignes ou de colonnes méritent un peu plus d'explications. EchLignes et 
EchColonnes commencent par un appel de la fonction booléenne V=rEchange. Celle-ci 
demande à l'utilisateur d'entrer sous forme de chaine le couple de lignes ou colonnes à échanger 
en commengant par le numéro le plus petit, par exemple "12 " ou "79". Ensuite, on vérifie si le 
couple convient en testant son appartenance à l'ensemble 12, 13, 23, 45, 46, 56, 78, 79, 89, c'est- 
à-dire si l'échange conservera les régions 3x3. 

Si le couple est correct, on calcule les numéros correspondants sous forme d'entiers ie et je et le 
résultat renvoyé sera true. Dans le cas contraire, le résultat renvoyé sera valse et la routine 
d'échange se terminera sans action. 


4. LA QUESTION DES AMBIGUÏTÉS 
Regardez dans la grille canonique de SudokGener.xlsm les positions (12), (13), (42), (43), (72), 


23 
31 
(73), nous notons les positions sous la forme (ligne colonne). Ona 12 . Si on échangeait les 
32 
12 


chiffres seulement sur ces positions en laissant tous les autres inchangés, pour obtenir 21, la 
grille resterait solution : les lignes et les colonnes gardent les mêmes présences des chiffres, mais 
aussi les régions dont les frontières sont marquées sur les figures ci-dessus. 

Cette situation s'appelle une ambiguïté. Il y a des ambiguités plus simples que celle que nous 
venons de voir, portant seulement sur deux chiffres et quatre positions. 

La méthode de résolution que nous allons décrire procède autant que possible par nécessité, c'est- 
à-dire qu'elle repère les positions où il n'y a qu'une possibilité de placement. Il est clair que si la 
grille solution cherchée a des ambiguités comme nous venons le voir, selon l'ordre de remplissage 
qu'on aura suivi on risque de tomber sur elles et, au lieu de procéder par pure nécessité, il faut 
faire des hypothèses. 

Nous avons pu constater sur de nombreuses grilles proposées dans des revues que l'on pouvait ne 
pas tomber sur des ambiguités, même pour des grilles qualifiées « difficiles » ou « diaboliques ». Il 
faut noter que moins de chiffres sont laissés dans la grille problème, plus on a de risque de tomber 
sur des ambiguités. 
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Dans le classeur SudokRes.x/sm, nous adoptons une méthode de résolution basée sur la 

nécessité : compte tenu des chiffres déjà placés, les règles d'exclusion qui forment la base du 
Sudoku font qu'il y a des positions oü un seul chiffre est possible ; notre programme cherche à les 
repérer et y met le chiffre voulu. 


Le haut de la feuille du classeur est semblable à celle de SudokGener.x/sm. 


A B|C DE FG Hii? K t Mm N o P a| Ris Tu v|w X|Y 
Grille initiale Grille an cours 


À gauche, on a la grille problème à résoudre ; à droite, la grille solution construite 
progressivement par le programme. Voici le mode d'emploi : 
m Remplir à la main la grille problème (appelée « Grille initiale ») avec les chiffres voulus. 
m Cliquer sur Résoudre. La grille solution apparaît presque instantanément dans « Grille en 
cours », à moins que le programme ne s'arrête sur une ambiguïté. 
m Le bouton permet d'enregistrer le classeur avec la solution, si vous souhaitez le 
garder. 
= Le rôle des boutons de vidage est évident. Après résolution, normalement, vous fermez le 
classeur sans enregistrer, ou vous actionnez pour enregistrer le classeur avec les grilles 
vierges. 
Voici le programme : 


Dim Grille(9, 9) As Integer, Poss(9, 9, 9) As Integer, NbFossCase(9, 9) 
As Integer 

Dim NbPossLigne(9, 9) As Integer, NbPossCol(9, 9) As Integer, 
NbPossReg(9, 9) As Integer 

Dim strPoss(9, 9) As String, strPossEff(9, 9) As String 

Dim i As Integer, j As Integer, k As Integer, r As Integer 

Dim ip As Integer, jp As Integer, kp As Integer, rp As Integer, NbRemp 
As Integer 

Dim ShEC As Worksheet, ShSV As Worksheet, v As Integer, s As String, n 
As Integer 

Dim Trouve As Boolean 

Dim WkP As Workbook, WkS As Workbook, Rep As String 

Const DLi = 3, Dice = 3, DCi = 1, DCoc = 16 


Function Region(i As Integer, j As Integer) As Integer 
Dim rr As Integer 


rige TENES 
Pr e fro cp E(k 11) X3) 
Region - rr 


End Function 
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Function Lm(r As Integer) As Integer 
Dim ii As Integer 
iE = fe D RES 
O som oy BR 
Lm = ii 
End Function 


Function Cm(r As Integer) As Integer 
Dim rr As Integer, jj As Integer 
sod ym 
33 rr Mod 3 
3353*733*2 
Cm = jj 
End Function 


rr 


[] 


Sub DeduitTab( 
'NbPossCase 
For 2 = 1 To 9 
For j = 1 To 9 
NbPossCase(i, j) = 0 
For k = 1 To 9 
If Poss(i, j, k) <> 0 Then NbPossCase(i, j) = NbPossCase(i, j) + 1 
Next k 
Next j 
Next i 
'NbPossLigne 
For i = 2 To 9 
For k - 1 To 9 
NbPossLigne(i, k) = O 
For j = 1 To 9 
If Poss(i, j, k) = k Then NbPossLigne(i, k) = NbPossLigne(i, k) + 1 
Next j 
Next k 
Next i 
'NbPossCol 
Mor j= 1 To 9 
For k = 1 To 9 
NbPossCol(j, k) = 0 
For i = 1 To 9 
If Poss(i, j; k) = k Then NbPossCol(j, k) = NbPossCol(j, K) + 1 
Next i 
Next k 
Next j 
'NbPosreg 
Fox sr =r To 9 
For k 21 To. 9 
NbPossReg (r, 0 
For i = Lm(r) - To Lm(r) * 1 
For J = Gmí(r) — 2 To Cmí(r) +2 
ss (i, j, k) = k Then NbPossReg(r, k) = NbPossReg(r, k) + 1 


m 
HI 


o 
Next j 
Next i 
Next k 
Next r 


274 


VBA pour Excel versions 2019 et Office 365 


ÉTAPE 2 — RÉSOLUTION SANS AMBIGUÏTÉ 


End Sub 


Sub DeduitChn() 
"strPoss 
For d = 2 To) 9 
Fox = a hero 
strPoss(i, j) = 
strPossEff(i, j) = "" 
For k = 1 To 9 


strPoss(i, j) = strPoss(i, j) & CStr(Poss(i, j, k)) 
Ir Possti, 3, ky) <> 0 Then 
strPossEfr(i, j) = strPossEff(i, j) & CStr(Poss(i, j, k)) 
End If 
Next k 
Next j 
Next i 


End Sub 


Sub RecupGrille(DL As Integer, DC As Integer) 
For i = 1 To 9 
FOE j = 1 To 9 
£ = Cells(DL + i, DC + j).Value 
If s - "" Then 
Grille(i, j) = O 
Else 
Grille(i, j) - CInt(s) 
End If 
Next j 
Next i 
End Sub 


Sub AfficheGrille (DL As Integer, DC As Integer) 
For i = 1 To 9 
For j = 1 To 9 
v = Grille(i, j) 
If v = 0 Then 
Cells(DL + i, DC + j).Value = "" 
Else 
Cells(DL + i, DC + j).Value = CStr(v) 
End If 
Next j 
Next i 
End Sub 


Sub VideGrilles() 
Range ("B4:J12") .Value = "" 
Range ("04:Y12") .Value = "" 
End Sub 


Sub VideSol ( 
Range ("Q4:Y12").Value = "" 
End Sub 
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Sub Resol() 
Set ShEC = Sheets ("EnCours") 


SnEC.Activate 


Init 
Wnile NbRemp « 81 
Examen 
If Trouve Then 
Entrer 
Else 


MsgBox "Ambiguité" 
AfficheGrille DLc, DCc 
Exit Sub 
End If 
Wend 
AfficheGrille DLc, DCc 
End Sub 


Sub Init() 
NbRemp - 0 
For i = 7 Ta 9 
For j = 1 To 9 
Gritte(i, j) 
För k= 1 To 9 
Poss (i, j, k) =k 
Next k 
Next j 
Next i 
DeduitTab 
DeduitChn 
For ip = T To B 
For jp = 1 To 9 
s = Cells (DLi + ip, DCi + jp).Value 


1 
o 


If s <> "" Then 
kp = CInt(s) 
Entrer 
End If 
Next jp 
Next ip 
End Sub 


Sub Entrer( 
'On entre kp en ip, jp 
NbRemp = NbRemp + 1 
Grille(ip, jp) = kp 
Cells(DLc + ip, DCc + jp) .Value = CStr(kp) 
For k = 1 To 9 


Poss(ip, jp, k) = 0 
Next k 
For i 2 1 To 9 
Poss(i, jp, kp) = 0 
Poss (ip, i, kp) = 0 


Next i 
rp = Region(ip, jp) 
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For i = Lm(rp) - 1 To Lm(rp) + 
For j = Cm(rp) - 1 To Cm(rp) + 1 
Foss (i, j, kp) = 0 
Next j 
Next i 
DeduitTab 
DeduitCnn 


End Sub 


Sub Examen () 
"Cherche les possibilités uniques 
Trouve = False 
'"NbPossCase 
Bor dus Bog 
For j = 1 To 9 
If Len(strPossEff(i, j)) = 1 Then 
Trouve - True 
ip = i 
Pp) = J 
kp = CInt(strPossEff(ip, jp)) 
Exit S 
End If 
Next j 
Next i 
'NbPossLigne 
Por i = 1 90 9 
For k - To 9 
If NbPossLigne(i, k) = 1 Then 
Trouve - True 
ip = i 
kp = k 
For j = 1 To 9 
If Poss(ip, j, kp) = kp Then 
jp = 3 
Exit Sub 
End If 
Next j 
End If 
Next k 
Next i 
"NbpossCol 
For j = 1 To 9 
For ke 959 
If NbPossCol (j, k) = 1 Then 
Trouve = True 
JOIE 
kp = k 
For i = 1 To 9 
If Poss(i, jp, kp) = kp Then 
ip=i 
Exit Sub 
End If 
Next i 
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End If 
Next k 
Next j 
'NbPossReg 
For r= 2 To 9 
For k = 1 To 9 


If NbPossReg(r, k) = 1 Then 
Trouve = True 
rp=r 
kp = k 
For i = Lm(rp) - 1 To Lm(rp) + 1 
For j = Cm(rp) - 1 To Cm(rp) + 1 
If Poss(i, j, kp) = kp Then 
ip =i 
Pas 
Exit Sub 
End If 
Next j 
Next i 
End If 
Next k 
Next r 
End Sub 


Sub Sauver () 
Set WkP = ThisWorkbook 
Rep = WkP.Path & Application.ParhSeparator 
Set ShEC = WkP.Sheets ("EnCours") 
Set WkS = Workbooks.Add 


WkS.SaveAs Filename:=Rep & "SV" & Format(Now, "yyyy-mm-dd-hh-nn") & ".xlsx" 
Set ShSV - WkS.Sheets (1) 
SnSV.Name - "SV" & Format(Now, "yyyy-mm-dd-hh-nn") 


WkP.Activate 
ShEC.Activate 

Range ("Al:K13").Select 
Selection.Copy 

WkS .Activate 
SnSV.Activate 

Range ("A1") .Select 
ActiveSheet.Paste 
Columns ("B:J") .Select 
Selecrion.ColumnWidth = 3 
Range ("A1") .Select 
WkF.Activate 
SnEC.Activate 
Range("P1:213").Select 
Selection.Copy 
WkS.Activate 
SnSV.Activate 

Range ("P1") .Select 
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ActiveSheet.Paste 

Columns ("Q:¥") .Select 

Selection.ColumnWidth = 3 

Range ("Al") .Select 

WkS.Save 

WkS.Close 

WkP.Activate 

ShEC.Activate 

Range ("Al") .Select 

Application.CutCopyMode = False 
End Sub 


Les variables 
Les variables les plus fondamentales sont Grille (9,9) qui contient les données de la grille 
solution en train de se remplir, NbRemp le nombre de cases remplies (la résolution est terminée 
lorsque NbRemp atteint la valeur 81) et, surtout, le tableau Poss (9, 9, 9) qui représente les 
possibilités qu'un chiffre puisse être entré dans une certaine case. Poss (i, j,k) vaut 0 si les 
contraintes du Sudoku interdisent que k vienne en position ligne i, colonne j ; si, au contraire, k 
est possible en (i,j), Poss(i,j,k) prend la valeur x. Au départ, lorsque la grille est vide, tous 
les chiffres sont a priori possibles dans toutes les cases, donc tous les Poss (i,j, x) valent k. 
Le tableau ?css est résumé par d'autres variables qui comptent le nombre de possibilités par 
case, par ligne et par région. 
NbPossCase(i,j) est le nombre de possibilités dans la case (i, j), donc le nombre de 
Poss (i,j,k) non nuls. NhPossLigne (i,k) est le nombre de cases de la ligne i où le chiffre 
x est possible ; NbPossCol(j,k) est le nombre de cases de la colonne 5 où le chiffre x est 
possible ; NbPossReg(r,k) estle nombre de cases de la région r où le chiffre x est possible. 
On a aussi deux résumés sous forme de chaines. Par exemple, si dans la case (i, 5) les chiffres 
possibles sont 2, 5 et 8, strPoss (i,j) sera "020050080" et strPossEff (i,j) sera "258"; 
donc la longueur de st rEosskff sera égale au NbPossCase. 
On voit que i, j et r ainsi que ip, jp et rp servent à parcourir les lignes, les colonnes et les 
régions ; k et xp désignent des contenus de case. 
Les variables Sh. . désignent des feuilles, x. . des classeurs. Les autres variables sont des 
données de service. 


Routines auxiliaires 
La fonction Region (i,j) renvoie le numéro de région à laquelle appartient la case (i,j). 
Les fonctions Lm(r) et Cm (r) renvoient respectivement la ligne / la colonne médiane de la 
région x. Pour parcourir les cases de la région x, on écrira : 
For i = Lm(r) - 1 To Lm(r) + 1 
For j = Cmt] = 2 m6 6m) + 
DeduitTab calcule les tableaux résumés Nb Poss... à partir du tableau Poss. 
DeduitChn calcule les chaînes résumées strPoss et strPossEff. 
RecupGrille et AfficheGrille jouent le même rôle que leurs correspondantes dans 
SudokGener.xism : elles transférent les données entre la feuille et la variable Crille. La 


différence est qu'elles n'ont pas l'argument grille concemé car il n'y a qu'une variable tableau en 
jeu Grille(i,i);ily a deux emplacements possibles sur la feuille : la grille problème ou la grille 


solution ; ils seront spécifiés par les arguments DL et DC. 
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La procédure Sauver permet de conserver l'état du classeur avec les grilles remplies si l'utilisateur 
le désire. Elle crée un nouveau classeur dans lequel elle copie les données ; révisez dans la partie 
Apprentissage la création et la sauvegarde d'un classeur pages 76-77, le copier-coller dans une 
feuille page 80. La construction du nom du classeur copie est particulière : on concatène sv et la 
date ; on concatène en plus l'heure et la minute pour que deux classeurs créés le méme jour 
n'aient pas de risque d'avoir le même nom. 


Routines fondamentales 


La procédure principale, associée au bouton Résoudre est Resol. Elle appelle Init puis démarre 
a boucle de remplissage de la grille While NbRemp<&1. Voici sa structure : 
nitialisation 
Tant que NbRemp«81 

Examen pour trouver une case à possibilité unique 

si trouvé 

| Entrer le chiffre dans la case 

sinon 

| Message « Ambiguité » et sortie du programme 

fin si 
Fin tant que 
La procédure rnit commence par attribuer toutes les possibilités dans toutes les cases de la 
future grille solution. Ensuite, elle parcourt la grille probléme et entre un à un (procédure Entrer) 
es chiffres trouvés dans la grille solution. 
C'est la procédure Ent rer qui fait l'essentiel du travail puisque c'est elle qui introduit les chiffres 
dans la grille solution. On entre la valeur et on incrémente NbRemp puisqu'on a rempli une case de 
plus. Enfin, on met à jour le tableau Poss en mettant à 0 la possibilité de la valeur xp d'abord 
dans la case concernée (ip, jp), puis dans toutes les cases de sa ligne, de sa colonne et de sa 
région. On termine en recalculant les résumés de Poss. En cas d'erreur, le booléen Erreur est 
positionné et le programme est stoppé. 
La procédure Examen est le nœud du programme. Elle cherche une case où il ne reste plus qu'un 
chiffre pouvant entrer. On cherche d'abord s'il y a un str PossE££ de longueur 1, ensuite sil y a 
une ligne, colonne ou région ayant NhPossLigne|Co:|Req(..,kp)-1. À ce moment, on 
obtient le ip, jp et kp permettant de remplir la case. 
Vous pouvez vérifier que le programme permet de résoudre pratiquement toutes les grilles 
problémes proposées dans les journaux. Seules quelques grilles indiquées « difficile », « niveau 
4 » ou « diabolique » causent un arrét sur ambiguité. Vous pourrez résoudre toutes les grilles 
problèmes construites avec le programme SudokGener.x/sm de la section précédente. Vous 
pourrez constater que si vous enlevez de la grille probléme un des chiffres en (5,2) ou (5,8), on 
tombe sur une ambiguité. 
L'ordre de remplissage de la grille peut aussi jouer un rôle pour l'apparition d'une ambiguïté ; le 
programme adopte la première possibilité unique trouvée par Examen ; on voit qu'on examine 
d'abord les cases, puis les lignes, les colonnes et enfin les régions. 
Vous avez en téléchargement le classeur 5V2019-02-07-16-16.x/sx qui conserve la solution d'un 
probléme généré à l'aide de SudokGener.xlsm. 


Une version pédagogique 
Le classeur SudokResPedag.x/sm orchestre une version pédagogique de la résolution. Celle-ci se 
déroule en pas à pas : à chaque entrée d'un nombre, une BDi affiche l'entrée prévue. 
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Cela laisse à l'utilisateur le temps d'examiner la grille et d'essayer de comprendre le choix du 
programme et donc de s'imprégner de la méthode de résolution mise en œuvre. 


Annuler pour arrêter, OK pour continuer le pas à pas x 
19:8 x | 

Annuler 
[Pas à pas] 


Si on valide par OK, on continue en pas à pas avec affichage. Si on valide par on termine 
a résolution sans affichage donc à toute vitesse. Dans les deux cas, l'entrée annoncée est 
effectuée. 

Par rapport au programme précédent, s'ajoutent les deux variables chaînes PAP (non vide si on 
est en pas à pas, vide en vitesse normale) et ChaEntr qui sera affichée dans la BDi et contient 
les coordonnées et le chiffre à entrer. La seule procédure modifiée est Resol : 


Sub Resol() 

Set ShEC - Sheets ("EnCours") 
ShEC.Activate 
Init 
PAP - "Pas à pas" 
While NbRemp < 81 

Examen 

If Trouve Then 

If PAP <> "" Then 


ChaEntr - CS Lp) OSes (A eye zt apud cse rs Lea Bos 
PAP = InputBox(ChaEntr, "Annuler pour arrêter, OK pour continuer le pas à pas", PAP) 
End If 
Entrer 
Else 
MsgBox "Ambiguité" 
AfficheGrille DLc, DCc 
Exit Sub 
End If 
Wend 
AfficheGrille DLc, DCc 
End Sub 


Ainsi, l'intelligence artificielle aidera les débutants en Sudoku à développer leur intelligence 
humaine à résoudre des grilles de Sudoku. D'ailleurs, il ne faut pas opposer les deux formes 
d'intelligence : l'intelligence artificielle n'est autre que la mise en ceuvre de l'intelligence humaine 
des analystes et des programmeurs. 
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Pour résoudre les cas d’ambiguité, il faut essayer des hypothèses. Nous nous bornerons, au cas où 
il ne se présente que des ambiguités d'ordre 2, à deux hypothèses, donc deux triplets ip, ip, kp. 
Lorsqu'une ambiguïté se présente, il faut sauvegarder la grille problème puis tester le premier 
triplet hypothèse. Essayer une hypothèse, c'est introduire le kp à l'emplacement indiqué dans la 
grille problème et faire la résolution à partir de la nouvelle grille problème ainsi obtenue. Si on 
tombe sur une impossibilité (une contradiction), il faut essayer la 2° hypothèse, d'où la nécessité 
de la sauvegarde de la grille problème. 


Toutefois, lors de la résolution dans une hypothése, il peut arriver une nouvelle ambiguité avec ses 
propres hypothéses à essayer. On a donc des niveaux successifs d'ambiguités avec leurs 
hypothèses. Si on tombe sur une ambiguïté au niveau n, on crée un nouveau niveau n+1. On a 
donc à un instant donné, différents niveaux avec leurs hypothéses et on doit mémoriser, pour 
chaque niveau, le numéro 1 ou 2 de l'hypothèse en cours d'essai. 

Si on tombe sur une impossibilité dans l'essai de l'hypothèse 1 du niveau actuel n, on reste à ce 
niveau et on essaie l'hypothèse 2. Si c'est dans l'hypothèse 2, il faut revenir au niveau n-1. On a 
donc une gestion de type pile (dernier entier, premier sorti). 


Le classeur de cette version est en téléchargement sous le nom SudokAmbi.x/sm. Sa feuille unique 
a en B20:J28 les bordures qui permettent d'afficher une copie de la grille probleme de départ car 
la grille problème en B4:J12 est modifiée à chaque ambiguité. À partir de la ligne 19, colonnes 11 
à 18, on affiche l'historique des ambiguités, niveaux, triplets ip, jp, xp et l'hypothèse essayée. 
Voici le programme : 


Dim Niv As Integer, Hyp(20) As Integer, GrilleSv(20,9,9) As Integer, 
h As Integer 

Dim ipn(20, 2) As Integer, jpn(20, 2) As Integer, kpn(20,2) As Integer 
LNiv As Integer 

Dim Grille(9,9) As Integer, Poss(9,9,9) As Integer, NbPossCase(9,9) 
As Integer 

Dim NbPossLigne(9,9) As Integer, NbPossCol(9,9) As Integer, 
NbPossReg(9,9) As Integer 

Dim strPoss(9,9) As String, strPossEff(9,9) As String 

Dim i As Integer, j As Integer, k As Integer, r As Integer 

Dim ip As Integer, jp As Integer, kp As Integer, rp As Integer, 
NbRemp As Integer 

Dim ShEC As Worksheet, ShSV As Worksheet, v As Integer, s As String, 
n As Integer 

Dim Trouve As Boolean, Imposs As Boolean 

Dim WkP As Workbook, WkS As Workbook, Rep As String 

Const DLi = 3, DLe = 3, DCi = 1, DCe = 16 


Const DLNiv = 19, CNiv = 11, CHyp = 18 


Function Region(i As Integer, j As Integer) As Integer 
Dim rr As Integer 


Seca EIN 
nes prog cq cpm copo qs) 
Region - rr 


End Function 


Function Lm(r As Integer) As Integer 
Dim ii As Integer 


TI re TN 
pio 3 * POR 
Lm = ii 


End Function 
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Function Cm(r As Integer) As Integer 
Dim rr As Integer, jj As Integer 
PL = yox 
jj = rr Mod 3 
Jam see 
Cm = jj 

End Function 


Sub DecuitTab() 
'NbPossCase 


For i = 1 To 9 
For Jj = $ TO 9 
NbPossCase (i, j) = 0 
For k l1 To: 9 
If Poss(i, j, k} <> 0 Then NbPossCase(i, j) = NbPossCase(i, j) + 1 
Next k 
Next j 
Next i 
'NbPoessLigne 
For t= T To 9 
For k= 1 To 5 
NbPossLigne(i, k) = 0 
For j = 1 To 9 
If Poss(i, j, k) = k Then NbPossLigne(i, k) = NbPossLigne(i, k) + 
Next j 
Next k 
Next i 
'NbPossCol 
For j = 1 To 9 
For k = 1 To 9 
NbPossCol(j, k) = 0 
For d = 1 To 9 
If Poss(i, j, k) = k Then NbPossCol (j, k) = NbPossCol (j, k) + 
Next i 
Next k 
Next j 
"NbPosreg 
For r = 1 10.9 
For k = 1 To 9 


NbPossReg (r, k) 
For i = Lm(r) - To Lm(r) + 1 
For j = Cm(r) 1 To Cm(r) + i 
If Poss(i, j, k) = k Then NbPossReg(r, k) = NbPossReg(r, k) + 1 
Next j 


[r 


0 


| 


Next i 
Next k 
Next r 
End Sub 
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Sub DeduitChn () 


'strPoss 
For i = 1 To 9 
For j = 1 To 9 


strPoss(i,; gj)  "" 

strPossEff(i, j) - 

For k = 1 To 9 
strPoss(i, j) = strPos 


i, j) & CStr(Poss(i, j, k)) 


If Poss(i, j, K) <> 0 Then 
strPossEff(i, j) = strPossEff(i, j) & CStr(Poss(i, j, k)] 
End If 
Next k 
Next j 
Next i 
End Sub 


Sub RecupGrille(DL As Integer, DC As Integer) 
For i = 1 To 9 
For j = 1 To 9 
= Cells(DL + i, DC + j).Value 
If s = "" Then 
Grille(i, j) 
Else 
Grille(i, j) = CInt(s) 
End If 
Next j 
Next i 
End Sub 


s 


Il 
o 


Sub AfficheGrille(DL As Integer, DC As Integer) 
For i = 1 To 9 
Kor j = To 9 
v = Grille(i, j) 
If v - 0 Then 
Cells(DL + i, DC + j).Value = "" 
Else 
Cells(DL + i, DC + j).Value = CStr (v) 
End If 
Next j 
Next i 
End Sub 


Sub VideGrilles () 
Range ("B4:J12") .Value = "" 
Range ("Q4:Y12").Value = 
Range ("B20:J28") .Value = 
Range ("K18:K80") .Value = "" 
End Sub 


Sub VideSol () 
Range ("Q4:Y12") .Value = 
Range ("B20:J28") .Value = 
Range ("K18:R80") .Value = "" 
End Sub 
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Sub ConservGrille( 
' Conserve la grille initiale 


For i = 1 To 9 
For j = 1 To 9 
Cells(DLNiv + i, DCi + j) .Value = Cells(DLi + i, DCi 
Next j 
Next i 
End Sub 
Sub Resol () 


Set ShEC = Sheets ("EnCours") 
ShEC.Activate 
ConservGrille 
Niv = 0 
LNiv = DLNiv 
Init 
While NbRemp < 81 

If Niv >= 1 Then 

ExImposs 


If Imposs Then TraitImposs 
End If 
Examenl 
If Trouve Then 
Entrer 
Else 
TraitAmbi 
End If 
Wend 
AfficheGrille DLc, DCc 
End Sub 


Sub Init () 
NbRemp = 0 
For i=1 

Por m= 2 0959 
Grille(i, j) = 0 
For k = 1 To 9 
Poss(i, j K) = k 
Next k 
Next j 
Next i 
DeduitTab 
DeduitChn 
For ip = 1 To 9 
For jp = 1 To 9 


x 
o 
w 


s Cells(DLi + ip, DCi + jp) .Value 
Ito s e» "" Than 
kp = CInt(s) 
Entrer 
End If 
Next jp 
Next ip 
End Sub 
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Sub Entrer ( 
"On entre kp en ip, jp 
NbRemp = NbRemp + 1 
Grille(ip, jp) = kp 
Cells(DLc + ip, DCc + jp).Value = CStr (kp) 
For k = 1 To 9 


Foss (ip, jp, k) = 0 

Next k 

For X 2 1 To 9 
Poss(i, jp, kp) = 0 
Poss(ip, i, kp) = O 

Next i 

rp = Region(ip, jp) 

For i = hm(rp) = 1 To Lm(rp) + 1 
For j = Cm(rp) - 1 To Cm(rp) + 1 

Poss(i, j, kp) = 0 

Next j 

Next i 

DeduitTab 

DeduitChn 

End Sub 


Sub ExImposs ( 

"Cherche une case vide pour laquelle il ne reste aucune possibilité 
Imposs = False 
Pox im i ToS 


j) = "" And Grille(i, j) = 0 Then 


Imposs = True 
Exit Sub 
End If 
Next j 
Next i 
End Sub 


Sub Examen1 () 
'Cherche les possibilités uniques 
Trouve = False 
'NbPossCase 
For i = 1 To 9 
For j = 1 To 9 
If Len(strPossEff(i, j)) = 1 Then 
Trouve = True 
ip = i 
Jp 
kp = CInt(strPossEff(ip, jp)) 
Exit Sub 
End If 
Next j 
Next i 
'NbPossLigne 
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For 2 -= 2 46:9 
For k = 1 To 9 
If NbPossLigne(i, k) = 1 Then 
Trouve - True 
ip-i 
kp = k 
For j = 1 To 9 
If Poss(ip, j, kp) = kp Then 
poena 
Exit Sub 
End If 
Next j 
End If 
Next k 
Next i 
"NbpossCol 
Por j = 2 To 9 
For k = 1 To 9 
If NbPossCol(j, k) = 1 Then 
Trouve = True 
Jp =j 
kp = k 
For i = 1 To 9 
If Poss(i, jp, kp) = kp Then 
p e 4 
Exit Sub 
End If 
Next i 
End If 
Next k 
Next j 
"NbPossReg 
For r = 1 To 9 
For k = 1 To 9 
If NbPossReg(r, k) 
Trouve = True 


1 Then 
rp =r 
1 To Lmirp) + 1 


For j - 1 To Cm(rp) + 1 
If Poss(i, j, kp) = kp Then 


Next j 
Next i 
End If 
Next k 
Next r 
End Sub 
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Sub Sauver ( 
Set WkP = ThisWorkbook 
Rep = WkP.Path & Application.PathSeparator 
Set ShEC = WkP.Sheets ("EnCours") 
Set WkS = Workbooks.Add 
WkS.SaveAs Filename:-Rep & "SV" £ Format(Now, "yyyy-mm-dd-hh-nn") & ".xlsx" 
Set ShSV = WkS.Sheets (1) 
SnSV.Name = "SV" & Format (Now, "yyyy-mm-dd-hh-nn") 
WkF.Activate 
SnEC.Activate 
Range("A1:J80").Select 
Selection.Copy 
WkS.Activate 
SnSV.Activate 
Range ("Al") .Select 
ActiveSheet.Paste 
Columns ("B:J") .Select 
Selection.ColumnWidth = 3 
Range ("Al") .Select 


WkP.Activate 
SnEC.Activate 

Range ("K18:R80") .Copy 
WkS.Activate 
SnSV.Activate 
Range("K18").Select 
ActiveSheet.Paste 


WkP.Activate 
ShEC.Activate 

Range ("P1:280") .Select 
Selection.Copy 
WkS.Activate 
SnSV.Activate 

Range ("P1") .Select 
ActiveSheet.Paste 


Columns ("Q:Y"].Select 
Selection.ColumnWidth - 3 
Range ("A1") .Select 
WkS.Save 


WkS.Close 

WkP.Activate 

ShEC.Activate 

Range ("Al") .Select 

Application.CutCopyMode = False 
End Sub 


Sub Examen? () 
' Cherche possibilités doubles 
Trouve - False 


'NbPossCase 


288 


Eyrolles/Tsof: BA pour Excel versions 2 


ÉTAPE 3 — RÉSOLUTION AVEC AMBIGUÏTÉS 


Foz i= 0200659 
For j = 1 To 9 
If Len(strPossEff(i, j)) = 2 Then 
Trouve - True 
ipn (Niv, 1) = i 
jpn(Niv, 1) = j 
ipn(Niv, 2) = i 
jen(Niv, 2) = j 
kpn(Niv, 1) = CInt(Mid(strPossEff(i, j), 1, 1)) 
kpn(Niv, 2) = CInt(Mid(strPossEff(i, j), Z, 1)) 
Exit Sub 
End If 
Next j 
Next i 
"NbPossLigne 
For i= 2 TON 
Bor ke 3 Tog 
If NbPossLigne(i, k) = 2 Then 


Trouve = True 
ipn(Niv, 1) =i 
kpn (Niv, 1) = k 
ipn (Niv, 2) = 
kpn (Niv, 2) = 
h= 0 
For j = 1 TO 9 
If Poss (i, 4). K) = k Then 

f h = 1 Then 

jen(Niv, 2) = j 

Exit Sub 

Else 
h= 1 
jpn (Niv, 1) = j 
End If 
End If 
Next j 
End If 
Next k 
Next i 


x + 


"NbpossCol 
For j = 1 To 9 
For k= 3 To 9 
If NbPossCol(j, k) - 2 Then 
Trouve - True 
jen(Niv, 1) - 
kpn(Niv, 1) - 
jen(Niv, 2) - 
kpn (Niv, 2) = 
h = 0 
For i = 1 To 9 
If Poss(i, j, K) = k Then 
If h = 1 Then 
ipn(Niv, 2) =i 
Exit Sub 


AU x 
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Else 
h = 1 
ipn(Niv, 1) 
End If 
End If 
Next i 
End If 
Next k 
Next j 
'NbPossReg 
For r = 1 To 9 
For k = 1 To 9 
If NbPossReg(r, k) = 2 Then 
Trouve - True 
rp =r 
kpn(Niv, 1) = 
kpn(Niv, 2) = 
h=0 
For i = Lm(rp) - 1 To Lm(rp) + 
For j = Cm(rp) = 1 To Cm(rp) + 1 
If Poss(i, j, k) = k Then 
If h = 1 Then 


[] 
P. 


k 
k 


ipn(Niv, 2) =i 
jpn(Niv, 2) - j 
Exit Sub 
Else 
h= 1 
ipn (Niv, 1) 
jpn (Niv, 1) 
End If 
End If 
Next j 
Next i 
End If 
Next k 
Next r 
End Sub 


"od 
U. H 


Sub TraitAmbi () 
If Niv >= 20 Then 
MsgBox "Trop de niveaux" 
Stop 
End If 
Niv = Niv + 1 
Examen2 
If Not Trouve Then 
MsgBox "Pas d'ambiquité 2" 
Stop 
End If 
NouvNiveau 
End Sub 
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Sub SvGrille( 
For i = 1 To 9 
For j = 1 To 9 
GrilleSv(Niv, i, j) - Grille(i, j) 
Next j 
Next i 
End Sub 


Sub TrGrille( 


Sub TraitImposs() 
If Hyp(Niv) = 1 Then 
ChgHyp 
Else 
RetourNiveau 
End If 
End Sub 


Sub AffNiv() 
LNiv = LNiv + 1 
Cells(LNiv, CNiv).Value - Niv 
Cells(LNiv, CNiv + 1).Value = ipn(Niv, 1 
Cells(LNiv, CNiv + 2).Value = jpn(Niv, 1) 
Cells(LNiv, CNiv + 3).Value = kpn(Niv, 1 
Cells(LNiv, CNiv + 4).Value = ipn(Niv, 2 
Cells(LNiv, CNiv + 5).Value = jpn(Niv, 2) 
Cells(LNiv, CNiv + 6).Value = kpn(Niv, 2 
End Sub 


Sub NouvNiveau() 
AffNiv 
SvGrille 
Hyp(Niv) = 1 
Cells(LNiv, CHyp).Value = Hyp (Niv) 
TrGrille 
Init 
End Sub 


Sub RetourNiveau () 


If Niv <= 1 Then 
MsgBox "Erreur retour niveau" 
Stop 
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For ate T69 
For j e 1 fo 9 
v = GrilleSv(Niv, i, j) 
If v = 0 Then 
Cells(DLi + i, DCi + j).Value = "" 
Else 
ce (DLi + i, DCi + j).Value = CStr (v) 
End If 
Next j 
Next i 
Cells(DLi + ipn(Niv, Hyp(Niv)), DCi + jpn(Niv, Hyp(Niv))).Value = kpn (Niv, 
End Sub 


Hyp (Niv)) 
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Else 
Niv = Niv - 1 
If Hyp(Niv) = 1 Then 
AffNiv 
ChgHyp 
Else 
RetourNiveau 


End If 
End If 
knd Sub 


Sub ChgHyp () 
Hyp(Niv) = 2 
Cells(LNiv, CHyp).Value = Hyp (Niv) 
TrGrille 
Init 
End Sub 


Nouvelles variables 
Niv est le numéro de niveau actuel. Tant qu'on n'a pas eu d'ambiguité, c'est 0 ; il n'a pas 


d'hypothèse. On suppose un maximum de 10 niveaux, d'où la dimension des variables indicées 
suivantes. 


Hyp (10) est le numéro d'hypothése (1 ou 2), où on en est dans les différents niveaux. 
GrilleSv(10,9,9} sauvegarde la grille probléme pour le niveau indiqué par le 1*' indice. 

h est un numéro d'hypothése dans la recherche. LNiv est la ligne où s'écrira l'historique de 
l'ambiguité qu'on vient de trouver. 

Les triplets vont par 2 : ipi, jp1, kp1, ip2, jp2, kp2 et les tableaux i pn, jpn et kpn servent à 
les mémoriser par niveau : ipn (3,2) est le ip2 de l'hypothèse 2 du niveau 3. 

Imposs est le booléen qui indique qu'on est tombé sur une impossibilité, donc que l'hypothèse en 
cours d'essai ne convient pas. 

Les constantes DLNiv, CNiv et CHyp servent pour la sauvegarde de la grille probleme de départ 
et l'historique des ambiguités. 


Les autres variables et constantes sont inchangées par rapport à SudokRes.x/sm. 


Procédures modifiées 


Les fonctions et procédures Region, Lm, Cm, DeduitTab, DeduitChn, RecupGrille, 
AfficheGrille et Init sont inchangées. 


Dans VideGrilles et VideSol, on a ajouté les instructions de vidage de la sauvegarde de la 
grille probléme et de l'historique des ambiguités. De même, Sauver reçoit en plus les séquences 
de copie des zones de sauvegarde de la grille probléme initiale et de l'historique des ambiguités. 


La procédure Examen1 est identique à Examen du classeur précédent ; nous avons changé le 


nom pour insister sur le fait qu'elle recherche les cas de possibilité unique et est le pendant de la 
nouvelle procédure Examen2 qui cherche les possibilités doubles. 
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La plus grande modification affecte keso1. Dans la séquence dinitialisation, on initialise wiv et 
LNiv et on appelle ConservGrille (sauvegarde de la grille problème initiale). Dans la boucle de 
remplissage, si Niv est positif on est en essai d'hypothèse, donc il peut y avoir une impossibilité 
(contradiction) ; aussi, avant de chercher à continuer à remplir la grille, on appelle ExImposs 
pour dépister une impossibilité et la traiter par TraitImposs. 

S'il n'y a pas d'impossibilité, on appelle Examen1. Si on a trouvé une possibilité unique, on appelle 
Entrer pour l'implanter comme dans le classeur précédent, sinon c'est une ambiguïté (car le cas 
d'im possibilité a été écarté précédemment) et on appelle TraitAmbi pour la traiter. 


Procédures ajoutées 
ConservGrille sauvegarde la grille problème de départ en B20:J28. En effet, la grille probléme 
en B4:J12 est modifiée à chaque nouvelle hypothèse : elle reçoit le kp en ip, jp de l'hypothèse et 
on recommence la recherche à partir de cette nouvelle grille probleme. 
ExImposs a pour but de dépister une impossibilité. Pour cela, on recherche en fait s'il y a une 
case vide pour laquelle il ne reste plus de possibilité. Normalement l'absence de possibilité devrait 
caractériser une case remplie. Si une impossibilité est trouvée, on met à vrai le booléen 1mposs. 
Examen2 est le pendant d'Examen1. Elle cherche des possibilités doubles, donc une case oü le 
strPossEtt est une chaine a deux caractères, ou bien une ligne/colonne/région où le NoFoss. . 
vaut 2. La routine obtient deux triplets ip, jp, kp au lieu d'un comme fait Examen1. 
TraitAmbi est appelée quand on n'a pas trouvé de possibilité unique. On appelle Examen2 pour 
trouver une possibilité double. Si on n'en a pas trouvé, c'est peut-étre qu'il n'y a que des 
ambiguités d'ordre supérieur à 2 ; on ne traite pas ce cas, donc le programme est stoppé. Si on a 
trouvé une ambiguïté d'ordre 2, on doit passer au niveau Niv+1 ; mais si Niv vaut 20, on 
dépasse la limite que nous nous sommes fixée, donc le programme est stoppé. Si Niv est 
inférieur, on appelle NouvNiveau pour passer au niveau suivant. En cas de stop, vous devez 
accéder à l'écran VBA et faire un Reset par clic sur le bouton ™ de la barre d'outils. 
SvGrille transfère le tableau Grille (i,j) dans le tableau GrilleSv (Niv, i,j). Cela 
revient à conserver dans la partie de Svcr:11e de 1*' indice Niv l'état de remplissage où on en 
était lorsque l'ambiguité de niveau Niv est apparue. 
TrGrille écrit la partie de GrilleSv (Niv, ..) à l'emplacement B4:312 de la grille problème et 
elle ajoute à cette grille probléme la donnée de l'hypothèse à essayer. 
TraitImposs est appelée lorsqu'on a trouvé une impossibilité dans l'essai en cours. Si c'est lors 
de Ihypothése 1 du niveau actuel, on appelle ch3H yp pour passer à l'hypothèse 2. Si c'est déjà 
l'hypothèse 2, il faut retourner au niveau inférieur : on appelle RetourNiveau. 


NouvNiveau passe au niveau supérieur. Par Af£Niv, on inscrit la ligne de cette nouvelle 
ambiguïté dans l'historique. Enfin, on sauvegarde la grille actuelle à ce niveau dans GrilleSv, on 
initialise Hyp à 1 (c'est la 1'* hypothèse de cette ambiguïté) et on prépare la nouvelle grille 
probléme par appel de TrGrille. 


RetourNiveau est appelée lorsque la 2* hypothése d'un niveau méne à une impossibilité. On doit 
donc revenir au niveau d'en dessous. On commence par un test assurant qu'on ne descendra pas 
en dessous du niveau 1. Si l'hypothèse en cours du nouveau niveau (n-1) était 1 (déjà essayée), 
on doit passer à l'hypothèse 2 (de n-1). Si c'était déjà l'hypothèse 2, on doit encore descendre 
(vers n-2). 

ChcHyp passe de l'hypothèse 1 à l'hypothèse 2 en restant au méme niveau. On appelle 
TrGrille pour remettre en B4:J12 la grille sauvée pour le nouveau niveau actuel et y ajouter les 
données de l'hypothèse 2. 
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Notez que tant dans cette routine que dans NouvNiveau, l'appel de TrGrille est suivi de 
l'appel à Init : on commence un nouveau remplissage à partir de la nouvelle grille problème. 
AZfNiv affiche les données du niveau. 


Essais 
Vous avez en téléchargement SV2019-02-07-16-16.x/sx où une grille issue de SudokGener.xlsm est 
résolue sans ambiguïté. Si on enlève les chiffres en positions (5, 2) et (5, 8), on tombe sur une 
ambiguïté. Le cas est conservé dans 51/2019-02-09-11-47.x/sx dont la figure ci-après montre la 
grille de départ initiale et l'historique d'ambiguité. 


A B.C D E F G|M|I ) K t M N c > Q RJS 
Gale mutasle su départ Ambiquités 
Niv L7! Jp Kor 1p2 2 Komo 


L'historique montre qu'il n'y a eu qu'une ambiguïté où la case (4, 2) « hésitait » entre 3 et 8. De 
fait, c'est la 1 hypothèse 3 en (4, 2) qui a conduit à la solution. 
Voici l'historique pour une grille qualifiée de « diabolique » dans un recueil de 7é/é Star Jeux : 
Niv Ipl Jpl Kp1 |p2 Jp2 Kp2 Hyp 
1 3 2 3 3 2 7 2 
2 2 2 1 1 2 3 1 
3 1 4 3 1 4 9 2 
On voit qu'il y a eu trois ambiguités et qu'on n'a pas eu à redescendre de niveau. Pour le 1° 
niveau, l'alternative était de placer 3 ou 7 en (3, 2), Hyp 2 : réponse 7 ; pour le 2°, 1 ou 3 en (1, 
2), Hyp 1 : réponse 1 ; pour le 3°, 3 ou 9 en (1, 4), Hyp 2 : réponse 9. 
Une autre grille dite aussi « diabolique » fait monter jusqu'au niveau 4. D'autres grilles peuvent 
faire monter plus haut, mais pas beaucoup plus haut dans celles que nous avons trouvées dans les 
journaux. Jusqu'à présent, nous n'avons pas trouvé dans les revues de grilles problèmes qui 
fassent redescendre de niveau. Voici un historique où nous avons retiré des chiffres 
supplémentaires dans la grille proposée par la revue : 


Niv Ip1 Jp1 Kp1 Ip2 Jp2 Kp2 Hyp 
1 3 2 3 3 2 7 1 
2 1 2 1 1 2 7 4 
3 1 6 6 1 6 9 1 
4 2 2 5 2 27 1 
5 p, 1 7 2 1 9 1 
6 3 4 2 3 4 T 4 
7 2 6 1 2 6 9 1 
8 2 5 3 2 5 9 1 
9 1 4 7 1 4 9 1 

10 2 8 2 2 8 9 1 
Jt 2 7 4 2 7 9 1 
12 3 8 6 3 S T i 
13 4 8 7 4 8 9 2 
12 3 8 6 3 2 7 2 
13 4 5 1 4 5 6 2 
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On voit qu'on redescend du niveau 13 vers 12 dont on explore l'hypothèse 2 qui conduit à 
nouveau au niveau 13 dont l'hypothèse 1 permet de terminer sans nouvelle ambiguïté. De tels 
retours font que l'historique peut avoir plus de lignes que de niveaux. 


Il pourrait arriver qu'on n'ait pas assez de niveaux possibles ; rien ne vous empêche d'augmenter 
les dimensions 20 et de changer le test dans TraitAmbi (ligne 7). 
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ANNEXES : 


AIDE-MÉMOIRE 


Raccourcis clavier 

Désignation des touches 

Liste des mots-clés 

Liste des opérateurs 

Principaux objets de dasseurs 
Principaux contrôles de BDi et propriétés 
Principaux contrôles de BDi et événements 

Modèle d'objets simplifié 


Table des exemples 


RACCOURCIS CLAVIER 


Touche 


CtriMaÿ+F2 


Fonction 

Aide 

Afficher l'Explorateur d'objets 
Définition 

Dernière position 

Suivant (Rechercher) 

Fenêtre Propriétés 

Ferme l'Explorateur de projets 
Exécuter 

Affichage code 

Affichage objet 

Exécuter en pas à pas détaillé/Avancer d'un pas 
Affiche la BDi Enregistrer une macro 
Exécuter jusqu'au curseur 

Pas à pas principal 

Pas à pas sortant 
Installer/désinstaller un point d'arrêt 
Définir l'instruction suivante 
Espion express 

Effacer tous les points d'arrêt 
Affiche menu contextuel 
Basculer entre Excel et VBA 
Compléter le mot 
Interrompre l'exécution 
Effacer 

Retrait 

Retrait négatif 

Sélectionner tout 

Copier 

Exporter un fichier 
Rechercher 

Fenêtre Exécution 

Remplacer 

Info express 

Info paramètres 

Répertorier propriétés/méthodes 
Répertorier constantes 

Pile des appels 

Importer un fichier 

Imprimer 

Quitter VBA et revenir à Excel 
Explorateur de projets 
Sauvegarder 

Coller 

Modifier un espion 

Couper 

Annuler 
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CONSTANTES CODES DE TOUCHES 


Elles sont utiles pour comparer à KeyCode ou KeyAscii dans les routines d'événements clavier. 
Caractères spéciaux 
Constante Valeur Description 
vbKeyLButton 1 Bouton gauche de la souris 
vbKeyRButton 2 Bouton droit de la souris 
vbKe yCancel 2 Touche ANNULER 
vbKe yMBuLton 4 Bouton secondaire de la souris 
vbKe yBack 8 RET.ARR 
vbKe yTab 9 TAB 
vbKe yClear 12 EFFACER 
vbKe yReturn 13 ENTREE 
vbKe yShift 16 MAJ 
vbKe yControl 17 CTRL 
vbKe yMenu 18 MENU 
vbKe yPause 19 PAUSE 
vbKe yCapital 20 VERR.MAJ 
vbKe yEscape 27 ÉCHAP 
vbKe ySpace 32 ESPACE 
vbKe yPageUp 33 PG. PREC 
vbKe yPageDown 34 PG.SUIV 
vbKe yEnd 35 FIN 
vbKe yHome 36 ORIGINE 
vbKeyLeft 3 CURSEUR GAUCHE 
vbKe yUp 38 CURSEUR HAUT 
vbKe yRight 39 CURSEUR DROITE 
vbKe yDown 40 CURSEUR BAS 
vbKe ySelect 41 Touche SÉLECTION 
vbKeyPrint 4 IMPR ÉCRAN 
vbKeyExecute 43 Touche EXÉCUTER 
vbKeySnapshot 44 Touche SNAPSHOT 
vbKeyInsert 45 INSER 
vbKe yDelete 46 SUPPR 
vbKe yHelp 47 Touche AIDE 
vbKe yNumlock 144 VERR.NUM 
Les touches lettres (A à Z) et chiffres (0 à 9) sont représentées par leurs codes ASCII (vbKeyA 65 


à vbKeyZ 90 et vbKey0 48 à vbKey9 57). 


DÉSIGNATION DES TOUCHES 


Pavé numérique 
Chiffres 0 à 9 : vbKeyNumpad0 96 à vbKeyNumpad? 105, puis : 


vbKeyMultiply 106 Touche MULTIPLICATION (*) 
veKeyAdd 107 Touche PLUS (+) 
vbKevSeparator 108 Touche ENTRÉE 
vbKeySubtract 109 Touche MOINS (-) 
vbKeyDecimal 110 Touche POINT DÉCIMAL (.) 
vbKeyDivide 11 Touche DIVISION (/) 
Touches de fonction 
Constante Valeur Description 
112 FL 
113 F2 
114 F3 
115 F4 
vhKeyrs 116 F5 
vbKey?6 117 F6 
vbKey?/ 118 F7 
vbKey?8 119 F8 
vbKey?9 120 F9 
vbKey?10 121 F10 
vbKey?11 122 Fil 
123 F12 
124 F13 
125 F14 
126 F15 
vbKey?16 127 F16 


Touches modificatrices 
Les touches Maj, [Ctr] et [Ald correspondent aux valeurs du paramètre Shift des routines 
d'événements clavier, respectivement 1, 2 et 4, ajoutés si plusieurs touches sont simultanément 
enfoncées. 


n 


Touche Maj 
Touche Ctrl 
Touche Alt 


On écrira par exemple pour la touche [Ald : 
If (Shift And 4) > 0 Then 


etif (Shift And 6) .. pour [CtriHAlt. 


DÉSIGNATION DES TOUCHES 


CONSTANTES CARACTÈRES 


Les constantes précédentes sont les codes des caractères. Pour obtenir le caractère, il faut écrire 
par exemple Chr (vbKeyReturn). Voici quelques désignations de caractères (chaînes de 


caractères de longueur 1 ou 2) : 


Constante Équivalent Description 

vbCrLf Chr(13) + Chr{10) Retour chariot et saut de ligne 
vbCr Chr (13) Saut de paragraphe 

vbLf Chr (10) Saut de ligne 


vbNewLine 


Chr(13) * 
Chr (10) 
ou, sur Macintosh, 
Chr (13) 


Caractére de saut de ligne spécifique à la plate- 
forme ; choix en fonction de la plate-forme 


vbNullChar 


Chr (0) 


Caractère ayant la valeur 0 


voNullString 


Chaine ayant la 
valeur 0 


Différent d'une chaîne de longueur nulle ("") ; 
permet l'appel de procédures externes 


vbCbjectError 


-2147221504 


Les numéros d'erreur définis par l'utilisateur 
doivent être supérieurs à cette valeur. Par 
exemple : 

Err.Raise Number = vbObjectError + 1000 


vbTab Chr (9) Caractère de tabulation 

vbBack Chr(8) Caractére de retour arriére 

vbFormFeed Chr (12) Inutilisé sous Microsoft Windows ou sur 
Maantosh 

vbVerticalTab | Chr(11) Inutilisé sous Microsoft Windows ou sur 


Maantosh 


DÉSIGNATION DES TOUCHES DANS SENDKEYS 


On a besoin de désigner les touches dans la chaîne argument de SendKeys. Les caractères 
imprimables sont présentés entre accolades (ex. {A}). Pour les caractères spéciaux : 
[Aide] {HELP} 

[attr] {BREAK} 

Curseur Bas {DOWN} 

Débu {HOME} 

Défilement {SCROLLLOCK} 

Curseur Droite {RIGHT} 

Echap| {ESCAPE} ou {ESC} 

Effacer] {CLEAR} 

Entrée {ENTER} 

Entrée (Pavé Numérique) ~ (tilde) 

F1] a F15 {F1} à {F15} 

Fin {END} 
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DÉSIGNATION DES TOUCHES 


Curseur Gauche 


Curseur Haut] 


nsertion 


Page Précédente 
— Ha€ 
Page Suivante 


RetAm E] 
Retou 
uppr 
[rabulation 


Verr.Maj 
Verr.Numi 


{LEFT} 

{UP} 

{INSERT} 

{PGUP} 

{PGDN} 
{BACKSPACE} ou {BS} 
{RETURN} 
{DELETE} ou {DEL} 
{TAB} 
{CAPSLOCK} 
{NUMLOCK} 


Vous pouvez aussi spécifier des touches combinées avec Maj et/ou [ctrl et/ou Alt. Pour spécifier 
une combinaison de touches, utilisez le tableau suivant. 


Pour combiner les touches avec 


Utiliser avant le code de la touche 
% (signe de pourcentage) 
^ (signe d'insertion) 


*- (signe plus) 
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LISTE DES MOTS-CLÉS 


Gestion des variables 


Attribution d'une valeur 


Let Set 


Déclaration de variables où de constantes 


Const Dim Private Public New, Static 


Déclaration d'un module privé 


Option Private Module 


Obtention d'informations sur une variable 


IsArray, IsDate, IsEmpty, IsError, IsMissing, 
IsNull, ISNumeric, IsObject, TypeName, 
VarType 


Référence à l'objet en cours 


Me 


Activation de la déclaration explicite des variables 


Option Explicit 


Définition du type de données par défaut 


Deftype 


Définition des types de données intrinsèques 


Boolean Byte Currency Date Double Integer 
Long Object Single String Variant 


Gestion des tableaux 


Test d'un tableau IsArray 
Création d'un tableau Array 
Modification de la limite inférieure par défaut Option Base 


Déclaration et initialisation d'un tableau 


Dim Private Public Static 


Renvoi des limites d'un tableau 


LBound UBound 


Réinitialisation d'un tableau ||Erase ReDim 
Gestion des collections 

[Création d'un objet Collection Collection 
Ajout d'un objet à une collection Add 


Suppression d'un objet d'une collection 


Remove 


Référence à un objet d'une collection 


Item 


Structuration du programme 


Branchement 


GoSub...Return, GoTo, OnError, On...GoSub, 
On...GoTo 


Sortie ou pause du programme 


DoEvents, End, Exit, Stop 


Boude 


Do...Loop, For...Next, For Each... Next, 
While...Wend, With 


Prise de décisions 


Choose, If...Then...Else, Select Case, Switch 


Utilisation de procédures 


Call, Function, Property Get, Property Let, 
Property Set, Sub 
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LISTE DES MOTS-CLÉS 


Conversions de données 


Code ANSI en chaîne Chr 


Chaine en minuscules ou en majuscules Format, Lcase, Ucase 


Nombre décimal en une autre base Hex, Oct 


Date en numéro de série | DateSerial, DateValue 


Nombre en chaine Format Str CStr 


Type de données en autre type CBool, CByte, CCur, CDate, CDbl, CDec, CInt, 
CLng, CSng, CStr, CVar, CVErr, Fix, Int 


Date en jours, mois, jours de semaine ou années Day, Month, Weekday, Year 


Heure en heures, minutes ou secondes Hour, Minute, Second 


Chaine en code ASCII | Asc 


Chaine en nombre Val 
Heure en numéro de série TimeSerial, TimeValue 


Gestion des dates 
Renvoi de la date ou de l'heure en cours Date, Now, Time 
Calculs de date DateAdd, DateDiff, DatePart 
Renvoi d'u ne date DateSerial, DateValue 
Renvoi d’une heure TimeSerial, TimeValue 
Définition de la date ou de l'heure Date, Time 
Chronométrage d'un traitement Timer 


Manipulation des chaínes de caractéres 


Comparaison de deux chaines StrComp 
Conversion de chaines StrConv 
Conversion en minuscules ou en majuscules Format, LCase, UCase 


Création de chaines répétant un méme caractére Space, String 


Calcul de la longueur d'une chaine Len 

Mise en forme d'une chaine Format 

Alignement d'une chaîne Lset, RSet 

Manipulation de chaînes InStr, InStrRev, Left, LTrim, Mid, Replace, 


Right, RTrim, Split, Trim 


Définition des règles de comparaison de chaînes Option Compare 


Utilisation des codes ASCII et ANSI Asc, Chr 
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LISTE DES MOTS-CLÉS 


Fonctions mathématiques 


Fonctions trigono métriques Atn, Cos, Sin, Tan 

Calculs usuels Exp, Log, Sqr 

Génération de nombres aléatoires Randomize, Rnd 

Renvoi de la valeur absolue Abs 

Renvoi du signe d’une expression Sgn 

Conversions numériques Fix, Int, Round 
Fonctions financiéres 

Calcul d’amortissement DDB, SLN, SYD 

Calcul de valeur future FV 

Calcul de taux d'intérêt Rate 

Calcul de taux de rendement interne IRR, MIRR 

Calcul de nombre d'échéances Nper 

Calcul de montant de versements IPmt, Pmt, PPmt 

Calcul de valeur actuelle NPV, PV 


Gestion des fichiers 


Changement de répertoire ou de dossier ChDir 
Changement de lecteur ChDrive 
Copie d'un fichier FileCopy 
Création d'un répertoire ou d'un dossier MkDir 
Suppression d'un répertoire ou dossier RmDir 
Attribution d'un nouveau nom à un fichier répertoire || Name 
ou dossier 

Renvoi du chemin en cours CurDir 
Renvoi de l'horodatage d'un fichier FileDateTime 
Renvoi d'attributs de fichier, de répertoire et de nom ||GetAttr 
de volume 

Renvoi de la longueur d'un fichier FileLen 
Renvoi d'un nom de fichier ou de volume Dir 
Définition des attributs d'un fichier SetAttr 
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LISTE DES MOTS-CLÉS 


Actions dans les fichiers 
Accès ou création d'un fichier Open 
Fermeture de fichiers Close, Reset 


Mise en forme de la sortie 


Format, Print, Print #, Spc, Tab, Width# 


Copie d’un fichier 


FileCopy 


Récupération d'informations sur un fichier 


BOF, ECF, FileAttr, FileDateTime, FileLen, 
FreeFile, GetAttr, Loc, LOF, Seek 


Gestion de fichiers 


Dir,Kill, Lock, Unlock, Name 


Lecture d'un fichier 


Get, Input, Input #,Line Input # 


Renvoi de la longueur d'un fichier 


FileLen 


Définition ou lecture des attributs de fichier 


FileAttr, GetAttr, SetAttr 


Définition de positions de lect/écr dans un fichier 


Seek 


Écriture dans un fichier 


Print #, Put, Write# 


Gestion des événements 


Traitement des événements en attente 


DoEvents 


Exécution d'autres programmes 


AppActivate, Shell 


Envoi de touches à une application SendKeys 
Émission d'un bip par l'ordinateur Beep 
Systéme Environ 
Foumiture d'une chaine de ligne de commande Command 


Automation CreateObject, GetObject 
Couleur QBColor, RGB 

Gestion des options des programmes 
Suppression des paramétres d'un programme DeleteSetting 


Lecture des paramétres d'un programme 


GetSetting, GetAllSettings 


Enregistrement des paramétres d'un programme 


SaveSetting 
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LISTE DES MOTS-CLÉS 


Gestion des erreurs 


Génération d'erreurs d'exécution Clear, Error, Raise 
Récupération des messages d'erreur Error 
Informations sur les erreurs Err 

Renvoi de la variable Error CVErr 
Interception des erreurs durant l'exécution OnError, Resume 
Vérification de type IsError 
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LISTE DES OPÉRATEURS 


Arithmétiques 
^ Élévation à la puissance 
* Multiplication 
/| Division réelle 5/3 donne 1.6666... 
| Division entière 5\3 donne 1 
Mod Reste de la division 5 Mod 3 donne 2 
+ Addition 
- Prendre l'opposé ou soustraction 
& Concaténation de chaînes (+ convient aussi) 


Comparaison 
= Égalité 
<> Différent 
< Inférieur 
<= Inférieur ou égal 
> Supérieur 
»- Supérieur ou égal 
Like Dit si une chaine est conforme à un modèle (avec jokers) 
" Bonjour " Like "Bon*" donne True (vrai) 


Is Identité entre deux objets 


Logiques 
Not  Contraire Not True donne False 
And Et logique vrai si et seulement si les deux opérandes sont vrais 
Or Ou inclusif vrai dés que l'un des opérandes est vrai 
Xor Ou exclusif vrai si un des opérandes est vrai mais pas les deux 
Eqv Equivalence vrai si les deux opérandes sont dans le même état vrai ou faux 
Imp  Implication après c = a Imp bona: 


a b [^ 

faux faux vrai 
faux vrai vrai 
vrai faux faux 
vrai vrai vrai 
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PRINCIPAUX OBJETS DE CLASSEURS 


Nous présentons seulement un choix des éléments qui nous semblent d'utilisation la plus probable 
en VBA. Nous faisons l'impasse des graphiques et des tableaux croisés. 


APPLICATION 


Propriétés 
ActiveCell, ActiveChart, ActivePrinter, ActiveSheet, ActiveWindow, 
ActiveWorkbook, AddIns, AlertBeforeOverwriting, AltStartupPath, 
AskToUpdaleLinks, Assistant, CalculateBeforeSave, Calculation, Caller, 
Caption, Cells, Charts, Columns, CommandBars, Cursor, CutCopyMode, 
DecimalSeparator, DefaultFilePath, Dialogs, DisplayAlerts, 
DisplayFormulaBar, DisplayScrollBars, FileDialog, FileFind, 
FileSearch, Height, Left, LibraryPath, MemoryFree, Name, Names, 
Operating8ystem, Parent, Path, PathSeparator, Range, ReferenceStyle, 
Rows, ScreenUpdating, Selection, Sheets, SheetsInNewWorkbook 
StandardFont, StandardFontSize, StartupPath, StatusBar, TemplatesPath, 
ThisWorkbook, ThousandsSeparator, Top, UserName, Version, Width, 
Windows, WindowState, Workbooks, WorksheetFunction, Worksheets 


Méthodes 
ActivateMicrosoftApp, AddChartAutoFormat, Calculate, CheckSpelling, 
DoubleClick, Evaluate, FindFile, GetOpenFilename, GetSaveAsFilename, 
InputBox, OnKey, CnRepeat, OnTime, OnUnco, Quit, Run, SendKeys, Undo, 
Volatile, Wait 


Événements 
NewWorkbook, SheetActivate, SneetBeforeDoubleClick 
SheetBeforeRightClick, SheetCalculate, SheetChange, SheetDeactivate, 
SheetFollowHyperlink, WindcwActivate, WindowDeactivate, WorkbookActivate 
WorkbookBeforeClose, WorkbcokBeforePrint, WorkbcokBeforeSave, 
WorkbookDeactivate, WorkbockNewSheet, WorkbookOpen 


COLLECTION WORKBOOKS 
Propriétés 


Application, Count, Creator, Item, Parent 


Méthodes 
Add, Close, Open 


WORKBOOK 

Propriétés 
ActiveChart, ActiveSheet, Application, Charts, Colors, CommandBars, 
FileFormat, FullName, HasPassword, IsAddin, Name, Names, Parent, 


Password, Path, ReadOnly, Saved, Sheets, Styles, Windows, Worksheets, 
WritePassword 


Méthodes 
Activate, AddinInstall, AddinUninstall, Close, FollowHyperlink, PrintOut, 
Protect, Save, SaveAs, SaveCopyAs, Unprctect 


PRINCIPAUX OBJETS DE CLASSEURS 


Événements 


Activate, BeforeClose, BeforePrint, BeforeSave, Deactivate, NewSheet, 
Open, SheetActivate, SheetBeforeDoubleClick, SheetBeforeRightClick, 
SheetCalculate, SheetChange, SheetDeactivate, SheetFollowHyperlink, 
SheetSelectionChange, WindowActivate, WindowDeactivate 


COLLECTION WORKSHEETS 
Propriétés 
Application, Count, Item, Parent, Visible 


Méthodes 
Add, Copy, Delete, FillAcrossSheets, Move, PrintOut, Select 


WORKSHEET 
Propriétés 


Application, Cells, CircularReference, CodeName, Columns, Comments, 
Hyperlinks, Name, Names, PageSetup, Parent, FrotectContents, 
ProtectDrawingObjects, Protection, ProtectionMode, QueryTables, Range, 
Rows, StandardHeight, StandardWidth, Type, UsedRange, Visible 


Méthodes 
Activate, Calculate, Copy, Delete, EnableCalculation, Evaluate, Move, 
Paste, PasteSpecial, PrintOut, Protect, SaveAs, Select, Unprotect 


Événements 


Activate, BeforeDoubleClick, BeforeRightClick, Calculate, Change, 
Deactivate, FollowHyperlink, SelectionChange 


RANGE 

Propriétés 
Address, AddressLocal, Application, Areas, Borders, Cells, Column, 
Columns, ColumnWidth, Comment, Count, CurrentRegion, End, EntireColumn, 


EntireRow, Errors, Font, Formula, FormulaLocal, FormulaR1Cl, 
FormulaRlClLocal, HasFormula, Height, Hidden, HorizontalAlignment, 
Hyperlinks, Interior, Item, Left, Locked, Name, NumberFormat, 
NumberFormatLocal, Offset, Orientation, Parent, QueryTable, Range 
Replace, Row, RowHeight, Rows, ShrinkToFit, Style, Top, Value, Value2, 
VerticalAlignment, Width, Worksheet, WrapText 


Méthodes 


Activate, AddComment, AdvancedFilter, AutoFill, AutoFilter, AutoFit, 
BorderAround, Calculate, Clear, ClearComments, ClearContents, Copy, Cut, 
DataSeries, Delete, Dependents, DirectDependents, FillDown, FillLeft, 
FillRight, FillUp, Find, Insert, Justify, PasteSpecial, PrintOut, Run, 
Select, Snow, Sort, Table, Text, TextToCclumns 


COLLECTION BORDERS ET BORDER (* = n'appartient qu'à Borders) 

Propriétés 
Application, Color, Colorindex, Count *, Creator, Item *, LineStyle, 
Parent, Value *, Weight 
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Accelerator Y Y A v | y 
AutoSize L F v LANA Y v| iv 
AutoTab rg Y 
Auto WordSelect st | Y 
BackColor FU xpos] À Gil xL xp xp ox A xp ox] «| € 
BorderColor v v| vi viv Y Y 
BorderStyle v z w| “| r Y Y 
Caption Y v| v v Y r, 
ControlSource v| v Y v| viv viv 
ControlTipText v| v| v vi vi vi vi vi vil vi vi viv 
DragBehavior Y Y 
Enabled vi vi vi vi vi vi vi vi vi vi vey ov ov ov 
EnterKeyBehavior E s 
Font | “| [| “| Y v| vi vi v 
ForeColor vy vi “| Y vi vi vi vi vi vi vi vi viv 
Height v| v| x vi vi vi vi vi vi vi vi vie viv 
HideSelection Y v 
IntearalHeight Y Y 
Left v| v| Y vi vi vi vi vi vi vi ANA 
+ 
| Locked. v| v| * v| e| v| v| v| v| v| v| v| v 
MaxLenqth x Y 
MultiLine Y 
PasswordChar r4 
Picture... Y LA LARA F Ld MEZ v| v 
ScrollBars £ Y Y Y 
SelectionMargin # Y 
SpecialEffect v| v v| v| v| xy rA “| y 
TabKeyBehavior Y 
TabStop C vi “| vi v| vi vil vi vi viv 
Taq v| vi vi vi vi vi vi vi vi vi vi ANA 
Text Y Y v 
TextAlign Y | Y v 
Top v| v| v vi vi vil vi vil vil vi vi vi VI 
Value v| v| v ARRA RKA RKA NKANKA REA REA 
Visible «| vi vl vi vi vi vi vi v] v] v] vj v] v] Y 
Width v| v| v v| vi vi A vi vi vi vi vi vi Y 
WordWrap Y Y Y v y| ov 
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Click vl F viv v| v 
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Deactivate 
DropButtonClick 


Exit 
Initialize 


s. 


KeyDown 


KeyPress 


s. 


MouseDown 


MouseMove 
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Sol Sel Sl Se Sh SSS 


MouseUp 
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RemoveControl 
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Scroll 


SpinDown 


SpinUp 


Terminate 


Zoom 
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MODÈLE D'OBJETS SIMPLIFIÉ 


Application 
Addins (AddIn) 
Assistant 
CommandBars (CommandBar) 
Debug 
Dialogs (Dialog) 
FileFind 
FileSearch 
Names (Name) 
VBE 
Windows (Window) 
Workbooks (Workbook) 
Charts (Chart) > 
Comman dBars ( ) 
Names (Name) 
Styles (Style) 
Borders ( ) 
Font 
Interior 
VBProject 
Windows ( ) 
Worksheets ( Worksheet) > 
WorksheetFunction 


Charts (Chart) 
Axes (Axis) 
AxisTitle 
GridLines 
TickLabels 
ChartArea 
ChartGroups (ChartGroup) 
ChartTitle 
Corners 
DataTable 
Border 
Font 
Floor 
LegendEntries (-Entry) 
LegendKey 
PageSetup 
PlotArea 
SeriesCollection (Series) 
Shapes (Shape) 
Walls 
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Worksheets (Worksheet) 
ChartObjects (ChartObject) 
Chart 
Comments ( Comment) 
Hyperlinks (Hyperlink) 
Names (Name) 
Outline (Plan) 
PageSetup 
PivotTables ( ) (Tableaux croisés) 
PivotCache 
PivotFields ( ) 
PivotItems ( ) 
PivotFormulas ( ) 
QueryTables (QueryTable) 
Parameters (Parameter) 
Range > 
Scenarios (Scenario) 
Shapes (Shape) 
ControlFormat 
FillFormat 
Hyperlink 
LineFormat 
LinkFormat 
PictureFormat 
ShadowFormat 
TextFrame 


Range 
Areas 
Borders (Border) 
Characters 
Font 
Comment 
Font 
FormatConditions ( ) 
Hyperlinks (Hyperlink) 
Interior 
Name 
Style 
Borders (Border) 
Font 
Interior 
Validation 


TABLE DES EXEMPLES 


Traitement d'erreur 37 
Initialisation de tableaux 52 
Exemple sur Select Case 60 
Recherche d'un élément 63 
Somme et moyenne 64 
Transfert d'une matrice 64 
Existence d'une feuille dans un classeur 65 
Factorielle 68 
Vérification à l'entrée dans une cellule 74 
Ouvrir un classeur quand on clique sur son nom 81 
Installer une bordure 82 
Obtenir le commentaire d'une cellule 86 
Afficher la BDi de choix de fichier 90 
Inhibition de l'abandon d'un contrôle 98 
Remplissage d’une liste, ajout à la liste 99 
Mettre une date dans une cellule 109 
Type personnalisé et dictionnaire 112 
Comptage de mots différents 113 
Lister les sous-répertoires 115 
Lecture-écriture fichier 117 
BDi dynamique 120 
Liste de fichiers de sous-répertoires 121 
Lecture de fichier texte 121 
Marquer un délai 123 
Traitements périodiques 123 
Pilotage à distance de Word 126 
Programmation objet : création d'objets personnels 127 
Personnalisation de barres d'outils ou de menus 140 
Graphique 142 
Parcourir la partie utile d'une feuille, trouver la 1" ligne vide 143 
Parcourir la partie utile d'une feuille pour rechercher une donnée 143 
Insérer un élément à sa place dans l'ordre alphabétique 144 
Regroupement de données 144 
Lire dans un fichier classeur sans l'ouvrir 144 
Copie d'un fichier 144 
Repérer le maximum dans une liste 145 
Recherche dichotomique dans un tableau cu une feuille 145 
Somme et moyenne des éléments d'un tableau 145 
Fonction décelant si un classeur est ouvert 146 
Fichier texte à longueur de ligne constante 146 
Initialisation au démarrage 151 
Systéme d'aide 152 
Gestion avec dictionnaire des données 153 
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Accéder.. 44, 90, 94, 101, 104, 118, 127, 141 
Activate... 30, 74, 78, 80, 81, 83, 96, 97, 151 


ActivateMicrosoftApp sn 126 
ActiveCell......................-. 44, 73, 82, 83 
ActiveChart 76 

83 
ActiveSheet ess 44, 72, 76 


ActiveWorkbook 34, 44, 72, 76, 118 
... 76, 80, 112, 120 

AddComment ns sursis 85 

AG GUCCI ere 99, 139 

Address 

AdvancedFilter.. 

Affectation .......... 21, 42, 46, 47, 68, 73, 150 

Affichage. uan an raauu E 10, 18, 31, 32 

Aide.....11, 17, 20, 35, 36, 49, 148, 150, 152 


Application .... 30, 43, 79, 122, 126, 310, 314 
Désignation ... 72,75 
Événements .. 122 
InputBox. 


Application.Run 118 
Apprendre VBA... li. 
ALBIS oia lain UG Rd i SR Do UK 82 
Argument............... 55, 66, 67, 68, 107, 108 


na ciis 14, 31, 33, 34, 62, 68, 299 
As ..17, 42, 49, 50, 53, 66, 67, 112, 114, 115 


AtEndOfStream 
AutoFill à 
E adani 83 
AutoFit 
Automatique . 
Conversion 
Démarrage 
Recalcul 
Vérification ... 


Autre classeur 


BACK cro, rise 94 
Backoround ri 83 
BackStyle. 
Barres de défilement 


. 95, 98, 99, 100 
caro 106, 141, 148 
.. Voir Base de données 
BeforeClose .. 
BeforeDoubleClick 
BeforePrinb uses iuis sassés ricas a stia 
BeforeRightClick.. 
BeforeSave 


Boîte à outils... . 91 
Boîte de dialogue .. 18, 42, 104, 299, 312 
Dynamique .. 120 


Événements clavier . 
Permanence des données .... 
Propriétés 
Utilisation 
Boite de dialogue en deux parties . 
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Boîte de dialogue formulaires........ ........... 91 
Boite de dialogue prédéfinie .... 
Bold .. 
Boolean... 
BorderAround ...................... eere 84 
BorderStyle. 
Bordure(s).. 
BOITEIElgB espere nee nes se 


Bouton radio 
Bouton(s)... 
Activer.. 
d'aide ... 
de barre d'outils. 
de MsgBox 
de validation 


Cancel.. ...67, 78, 81, 97, 98 
Caption .. 28, 75, 92, 93, 94, 95, 97, 98, 100, 
139 

Caractères ......... 15, 22, 40, 50, 56, 125, 305 
Couleur ... 84 


...302 
..114 
73 
83 
..41, 42, 126, 302 
wa. 56, 110, 111 
[t| SNR 43, 44, 48, 51, 72, 82 


.29, 44, 74, 82, 106 


Désignation . 


Limitation 
Police ... 
Spéciaux 


Changement... 
Commentaire .. 


Désignation . 
Événements. 


Ij — — M 44, 73 
Chaîne de caractères .15, 46, 53, 94, 98, 109 
.. 40, 46, 53, 54, 86, 89, 114 
30, 74, 92, 98, 101, 122 
ne 76, 79, 122, 142, 314 


Chaine vide. 


ChDir.... 
ChDrive " 
CIGCKBDY: cp ete 92, 100 


Choose . 

Chr. 5/41, 56 

Classe .. 18, 36, 106, 122, 126, 127 

Classeur... ..18, 30, 37, 77, 154 
Actif ..... .44 
Événements 18, 79, 104 
Nom .. .76 


ouvert. 
Propriétés 
Clavier 


18, 44, 76 
.76 


30, 41, 56, 125, 299 


raccourcis .... 

touches. .. 41, 122, 125, 126, 302 
LEE) SE 74, 82, 99 
ClearComments.... .85 


.74 
. 74 
18, 29, 100 
66, 76, 77, 115, 117, 121, 125 


ClearContents ... 


ClearFormats. 
Click .. 
Close . 
Code . 


Caractère .... 


Gode de tociens ceni descri 
Collection.............. 

COONS) rasvonaiarnwonisvecriereovea mus 
ColorIndex .. 
Column(s) 44, 73, 82 
..46, 73, 82 
92, 97, 99, 102 
antes) 92 
Commentaire ......13, 14, 15, 16, 85, 86, 154 
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Compatibilité de version... 
Compilation... 


© Eyrolles/Tsoft — VBA pour Excel versions 2019 et Office 365 


Complément (instruction)......................... 13 
Complémentaires. 


Concaténation .. 
Condition 


Constante nominale 
Constante symbolique... 41, 90 
Construction.. 10, 18, 55, 58, 60, 62, 91, 148 
Contenu .... 
de Cellule 
de Fichier 
du Presse-papier.. 
Parenthéses .. 
Protection 


[sro (ij, - MN ——— 
Control... 
Contróles 

Accéder... 
Formatage.. 


Permanence des valeurs 
Propriétés 
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ControlTipText.. 
Conversion... 
Conversion automatique... 48 
Copie.. 
Copy... 
COUISUL amant 84 
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CreateObject.. sms oa cna 112, 121, 126 


EST. .… 56, 88, 109, 129 
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DateAdd .... 
DateDiff 


Déclaration ...... 
de chaine .. 
de procédure 
de tableau .... 
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Place... 
Portée . 
Procédure .. 
Type personnalisé 
Variable sans ... 


WithEvents ... 
Default ... 89, 97, 99 
Défaut. . 22, 46, 51, 54, 63, 67, 98 
Bouton par ... . 125 


Noms de contróles 
Opération sur fichier. 
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Valeur par........ 
Défilement.... 
Délai ... 
Delete . 
Démarrage automatique 
Dependants ... 
Descendante .... 
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Désignation 
d'objet.. 
de cellule 
de contrôles. 


de données.. 


de fichier . 
Dessin 
Développement progressif .............. 148, 154 
Dialogs. 90 
Dialogue.. . B, 18, 88, 90 
Dictiotertqugs rene 145 
Dictionnaire... «112,153 


de données.. 


Dim 44, 49, 50, 51 
Portée ...104 
Dimensions. .51, 67, 95, 99, 100 
variables. iid 
...114 
13, 22, 49, 51 
Eanair 43, 75, 80 
21, 47, 62, 63, 64 
DoEvents. 123, 126 
Données...... 21, 97, 102, 112, 127, 148, 153 
Bases de . 141 
Classeur de.. +154 
Conservation .. .105, 113 
d'un autre classeur... 
d'une feuille. 
de fichier 


Désignation 
Entrée de nombreuses ... 


Durée de vie 105 
DYNAN GUC nenesa 113, 120 


65 
49 
.115, 117 


Écriture 
Fichier.. 


TBII anna 12, 13,35 
Éditeur VBA ... .12, 13, 14, 29, 41, 47 
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94, 97, 98, 120, 138 
ci 66, 68, 83, 105, 112, 143 
.. 17, 22, 66, 68 
17, 22, 66, 68 
.. 116, 117, 141 
——— 30, 98, 99 


Entier ..40, 46, 48, 50, 61, 107 
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Ergonomie .. 
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de frappe .... 
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en entrée .... 
Récupération.............. 19, 37, 70, 86, 90 
37, 41, 70, 107 
Espace.. 16:17:42; 53; 55,56; 57 
Espoirs 
Étiquette.. - 
Evaluate .. . 108 
Événements12, 18, 29, 81, 96, 124, 129, 313 
Argument Cancel 
clavier. 


de TextBox ..... 
Déclenchement par 
des contrôles 
DoEvents .... 
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Routines d’ 
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Opérations . 
Version ... 


Exécutable .... 
Exécuter enr 27, 28, 34, 44, 108 
Exécution . 8, 9, 31, 68, 105, 120 


Déclenchement. 
Essai... 
Fenétre 
Interrompre .. 


Exit.. 17, 30, 37, 63, 64, 68, 69, 98, 100, 105 


Explorateur d'objets 18, 36, 106, 141 


Explorateur de projet... 10, 19, 20, 299 
Exporter (module) ss 12 
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Argument 
Chaine 
Indice . 
Sous- 
Extraction.. 


Faute de frappe... 
Fenêtre de code.. 
Fenêtre de projet. 
Fenêtre de propriété .......................... 28, 97 
Fenétre Exécution... 


Feuilles .. 18, 44, 72, 79, 106 

Fichier(s) 77, 114, 115, 121, 307 
BDi de choix de ... ..90 
de Module 


[i m ————— ner asentn 
FileCopy 
FileDateTime 
FileLen 
FileSystemObject 
FillAcrossSheets .. 


Argument ... 
Déclaration 
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-. 73, 109, 144 


+92, 93, 100 


FullName ... 
Function .... 


GetExtension Name. 
GetFolder ..... 
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GetOpenFilename ss 90 
GetSaveAsFilename 
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Graphique .. 
Grille. 
Groupe.... 
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[cni — —— Ó— — 


Homogène 
HorizontalAlignment. 


Indice(s) .... 
Info-bulles.. .19, 31, 32, 152 
Information . 46, 48, 85, 94, 97, 107 


Initialisation................ 46, 52, 64, 93, 96, 97 


InputBox 
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Integer .... 
Interface... 
Interior .... 
TIT DO ea usas EAR DUE sas ERES 


IsArray . 
ISDal Esai mn nl 
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IsErmor.. 


IsMissing . 


KeepScrollBarsVisible 
KeyAscii a 
KEV COU sement 
KeyDown .... 
KeyPress.. 


LargeChange.. 101 
Largeur constante « 147 
Irun —— 67, 113, 145 


.73, 85, 115, 116, 117 
— 75, 76, 79, 128 
..40, 48, 54, 93, 120 


Left ... 
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Longueur constante ... 
Saut de 


Line Input #.. 
LIS tB OX ceti ELRO. 
ListIndex 
ListStyle . 
Littéral ... 


92,99 


117 
.31, 40, 48, 50, 58, 61, 309 
istae ep E c 40, 50, 143 


Enregistrement. 
Mise au point. 
Sécurité 


Majuscules ...... 15, 17, 22, 40, 43, 53, 55, 98 
MatchRequired rss 99 
Mathématiques. ausis iere ets 107 
Matrice... 

Maximum 

MaxLength 98 
p ———— 76, 95, 96, 120 


28, 148, 149 
Affichage. 
Contextuel 

Contextuel (afficher) .. 
FER rm 


Mode immédiat 
Modification9, 20, 67, 68, 114, 120, 150, 154 
Module(s).. . 10, 18, 49, 96, 104, 112 


de classe... 
de classeur 
de feuille ... 


Mot de passe ... 
Mots-clés ................ 


Moyenne ... 
MsgBox .. 
Multiclasseur.... 
MUNG [- t 
Multimodule.. 
MultiPage .. 
MultiSelect.... 


d'objet. 
de BDi .... 
de contróle 
de feuille ... 
de plage .... 
de police... 
Fichier .... 
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Now.. 

Null... 

NumberFormat ….......................... 73, 109 
o 

Object........... 17, 44, 78, 112, 121, 122, 141 


15, 17, 18, 29, 126, 310 


Aide sur... 
Collection 


Désignation d'. 
Identité d' 

Identité entre deux objets . 
Méthodes d'. 
Modèle d’ .... 
Personnalisés.. 
Prédéfinis 
Propriété d 
Sous-objets . 
Variable d’... 


37, 70, 101, 122 
.44, 79, 80, 101, 120, 136 


Opérandes.. 
Opérateurs . 
OperatingSystem .. 


Option Base 

Option Compare. ses 22 
Optiori Explicit cessano 13, 22, 49 
Option Private Module. 22, 104 
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OptionBulton................ oe rmiee aae cese 92, 100 
Options. 
Or.. 
Ordre alphabétique.. 
Orthographe ................. sss 
Outils... 


[ori] ——— 115, 116 
s 72, 75, 115, 118, 146 


Ouvert, classeur ....... 
...28, 30, 115, 117, 118 


Ouverture 

P 
PINAY 
PREAL anisa 


Partie utile .. 
Pas a pas. 33, 34, 299 
Password 76, 77, 80 


74, 80, 84 
74, 80, 84 


4540, 121 
PathSeparator is 75, 76 
Personnalisation ... . 28, 136, 138 


.… 92, 97, 139 
(€———— 49, 66, 78, 144 
..44, 72, 82, 84, 142 


Décimal 
Notation objet 
Point d'arrét 
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Présentation 
Présentation (instructions) ....................... 15 
Preserve .. 


.. 116 
65, 77, 80, 84 
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PRO 47,48, 59 


Private ..49, 50, 51, 66, 104 


Privé 
Procédure . 


Déclaration. 
Démarrage 
Démarrage automatique 
Événementielle . 


Property. .. 127, 128 

Propriétés innn 15, 17, 46, 127 
Accès 127 
de BDi. 


de classeur … 
des contrôles. 
Désignation 


ProtectContents 
Public.............. 


Raccourci (touche) 
RaiseEvent 


Recherche . 
d'erreurs. 
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ReDim. 
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Relatif 
Répertoire .... 
Replace eas Yes e eei EY CE ve M 
Reprendre ..... 
Resume.. 
Rétablir gs 
REG eG ss 
Retum. 


Rnd.. 48, 107, 129 
Routine .. .…. 29, 66, 104 
d'erreur ........ 
d'événement. . 74, 78, 95, 122 


.96 
.66 
44, 73, 82, 143 
wa 73, 79, 82 


de validation. 


RowHeight..... 
RowSource 
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ScreenUpdating sonoras 75 SUID sescenti mer 17, 37, 66, 67, 68, 105 
Scripting.Dictionary .. » 121 
Scripting.FileSystem . 


ScrollBar(s) 


Cin ————— 

. 17, 47, 60, 74, 80, 82, 83 EXE sinas duse ries 13, 14, 17, 31 
Select Case. 21, 47, 60 
Sélection... 9, 81, 90, 92, 93, 141 T 
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54, 63, 64 


Text .. .22, 53, 85, 92, 98, 99 
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ShrinkToFit. 83 


446, 47, 52, 53, 73 


TimeSerial... 
TimeValue .. 
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SpecialCells 
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93, 120, 138 
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SpinUp .... 

| nn dite 
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x 56 de contrôle . . 120 
49, 50, 53, 55 de fichier . 
Structuration ........ 11, 16, 21, 47, 58, 61, 62 Déclaration .... 
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Di a E aa 41, 108 
U 

UBound.. 67, 113, 145 

UCase. »55 

Unload... . 96, 105 


62 
.79, 143 
UserForm .............. 18, 88, 91, 94, 95, 96, 97 
UIS ica iN RR REUNION UU STRE 143 
V 
Val...... 
Valeur. -21, 30, 40, 42, 46, 56, 127 


Conservation . .50, 105 


de cellule 
Initiale .... T 
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Durée de vie.. 
Initialisation .. 
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Ness 110 
WeekdayNamie....ii incon initiis 110 
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„s 65, 82, 112 
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